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»« DE 6502 KENNERS »* - EEN CLUB VOOR 65xx SEBRUIKER8 tf DE 6502 KENNER t« 



EEN BLAD VOOR 65)(x BEBRUIKERS 



De vereniaina heeft leden in Nederland, Belole, Duitsland. 
Frankrijk,' Soanje, Portugal, ftflierika, India. Het doel van 
de vereniaina is: het bevorderen van de kennisuitMisselina 
tussen de'oe5ruikers van BSxx-coMOuters, zoals KIM, JUNIOR 
COMMODORE-64, APPLE, CHE-1, PEflRCOM, flIM-65, SYM, PET, BBC 
flTflRI, VIC-20, BftSIS 108, PROTON COMPUTERS, IH 2020, OSI, 
ACC 8000, ACORN ELECTRON, SYSTEM 65, PC-100, PALLAS, MINTA 
FORMOSA, ORIC-1, STARLIGHT, CV-777, ESTATE III, SBC 65/68, 
NCS 6502, KEMPAC Systea 4, Elektuur SAMSON-65 DOS codouter. 
De kennis uitNisselina Mordt o.a. aerealiseerd door 5 itaal 
oer jaar DE 6502 KENNER te oublicefen (1984 en 1985 6 taal 
zonder contributieverhoqina), door het houden van clubbii- 
eenkoisten, door een cassefte-bibliotheek in stand te hou- 
den en door het verlenen van oaoerware-service. De leden 
zelf oraaniseren reaio-biieenkoAsten. 



Verschijninasdata 
DE 6502 KENNER 

derde zaterdaq 
van de Aaanden: 
februari, aoril, juni, 
auQustus, oktober, december. 

Inlichtincen over de reqio- 
bijeenko(A5ten: 

Gerard van Roekel, 
Van der Palftstraat 11 - C 
3135 LK Vlaardinaen. 
Tel.: 010 - 351101 



DE 6502 KENNER is een uitaave van de KIM Gebruikers Club 
Nederland. Het blad Nordt verstrekt aan leden van de club. 
DE 6502 KENNER nordt van codv voorzien door leden van de 
club, blj de oD«aak van een oublikatie biiqestaan door de 
redaktie. De inzendinaen van oroaraiAa's dienen voorzien 
te ziin van coAAentaar in de listinas. Dit, in verband Aet 
het educatieve asoekt. De inzendinaen kunnen qeschieden in 
Aachinetaal, de asseAbler/disasseAbler/editof Micro-ADE, 
de ForAat Lister/AsseAbler/Taoe-utilities/Editor FATE, de 
resident asseAbler/editor van Carl Moser, in de hogere 
oroaraAAeertalen zoals biivoorbeeld Basic, Basicode. Forth, 
Focal, CoAal, Pascal, etc. etc. 

De leden schriiven ook artikelen over de door hen ontwikkel- 
de hardware en/of aanoassinaen daaroo. Zii schriiven tevens 
artikelen van alqeAene aard of reaqeren oo qeoubliceerde 
artikelen. 



Bi leenkoAsten van de club DE 6502 KENNER is een blad van de leden en door de leden. 



derde zaterdaq 
van de Aaanden: 
januari, Aaart, Aei, 
seoteAber, noveAber. 

Redaktie-adres en inforAa- 
ties over oaoerMare etc.: 

UilleA L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK KriAoen/IJssBl. 
Tel. : 01807 - 19881 



De vereniaina is vollediq onafhankelijk, is statutair oo- 
aericht en inqeschreven bij de KaAer van Kooohandel en 
Pabrieken voof Hollands Noorderkwartier te AlkAaar, onder 
nuAAer 634305. 



Voorzitter: 

Rinus Vleesch-Dubois 

Fl. Niahtinaalestraat 212 

2037 NS HaafleA 

Tel. : 023 - 330993 

PenninqAeester: 
John F." van Sorana 
Tula 71 

2925 EW KriAoen/Ussel. 
Tel. : 01807 - 20589 



Sekretaris: 
Gert Klein 
Diedenweq 119 
6706 CM Waaeninaen 
Tel.: 08370 - 23646 

Redaktie DE 6502 KENNER: 
UilleA L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK KriAoen/IJssel. 
Tel.: 01807 - 19881 



Leden: 
Adri Hankel 
Jan ToADot 
ErMin Visschedijk 
Nico de Vries 
Erevoorzitter: 
Ereleden : 

LidAaatschao : 



Advertent ies : 



(05490 - 51151 ) Hardware/software 
(070 - 931417) ProAotie 
(05490 - 71416 ) Hardware/software 
(010 - 502239) 
Sieo de Vries 

Mw. H. de Vries - Van der Winden 
Anton Mueller 

Fl. 45,== oer kalendenaar, oostrekenina 
3757649 t.n.v. KIM Gebruikers Club Ned. 
te KriAoen a.d. IJssel. 
Tarieven oo aanvraaq bij de redaktie. 



De Micro-ADE is een orodukt van Micro-Hare Ltd., qeschreven 
door Peter Jenninas en besteAd voor alle 6502-coADuters. De 
KiA Gebruikers Club Nederland heeft de cooyriahts verworven 
nadat Sebo Uoldrinah de oorsoronkeliike 4K KIM-1 versie 
Aet 4K uitbreidde tot 8K KIM-1 versie. welke later door 
Adri Hankel Merd aanqeoast voor de JUNIOR. Uit de berq aan- 
vullinaen en Hiiziainaen stelde WilleA van Pelt een nieuwe 
8K source-list ina voor de JUNIOR saAen. De iAoleAentatie oo 
andere svsteAen dan de KIM-1 en de JUNIOR kan eenvoudia qe- 
beuren door het aanoassen van de I/O-adressen. welke in de 
source-list ino aeAakkeliiK terua te vinden ziin. 
Vraao de oriisHist bii de redaktie door het zenden van een 
qefrankeerde (fl. 1.40) retourenveloooe. 

De Fomat Lister/AsseAbler/Taoe-utilities/Editor FATE staat 
dankzii de Aedewerkina van Proton Electronics te Naarden nu 
voor de bezitters van een JUNIOR-coAOuter ter beschikkino. 
Het 12K oroaraAAa vindt haar oorsorona in het universele 
disk ooeratina svsteA van Proton Electronics. Rob Banen ou- 
bliceerde daa rover eniae Nijziainaen en schreef daaroo FATE. 
EenAaal Aet FATE bekend. dan is de stao naar het door ons 
qewaardeerde disk ooeratina svsteA noq slechts een kwestie 
van aeld. 

FATE'Mordt beschikbaar qesteld Aet toesteAAina van Proton 
Electronics te Naarden. 

In de edit ies van DE 6502 KENNER Norden reaelAatiq aankon- 
diqinqen qedaan van de door de club qeoraanisseeerde lande- 
lijke'en feqionale biieenkoAsten. Ook Norden bestuurliike 
Aededelinqen qedaan, naast info rAat ies over hetqeen oo de 
Aarkt te kooo'is. Leden kunnen het qevraaod of te kooo aan- 
qeboden artikel bekend Aaken of brieven aan de redaktie la- 
ten oubliceren. 

Elke editie van DE 6502 KENNER oAvat AiniAaal 48 oaqma's. 

De redaktie verwacht inzendinaen van aebruikers van alle 
6502 svsteAen. 

Het oubliceren van artikelen Nordt oo de voet aevolqd door 

een onaf hankel i ike jury van 6502 kenners bii uitstek. Deze 

lury kent laarlijks een aantal aanAoediainasoreAies toe 
voor de beste oublikatie in DE 6502 KENNER. 
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De 6502 KENNER is een 
ultaave van de KIM oebrui- 
kefs Club Neder land.' 



Adres voor het inzenden 
van en reakties oo artike- 
len voor DE 6502 KENNER: 
yillei L van Pelt 
Jacob Jo rdaensst raat IS 
2923 CK Kritoen a/IJssel 
Tel. : 01807 - 19881 

Vaste nedewerkers: 

yille« L van Pelt 
Gerard van Roekel 
Frans Sieehuiizen 
Jaao van Toledo 
Ipplme aedeMerkers: 

Frans Bakx 
Rob Banen 
Fridus Jonk«an 
Gert Klein 
Rooer Lanqeveld 
flnton Mueller 
Gert van Oobroek 
Rumt yirii^l . 

II lust rat ies: 

Jack Uchtian 

Gehele of qedeelteli ike 
overnaffie van de inhoud 
van DE 6502 KENNER zonder 
toesteftiinq van het be- 
stuur is verboden. Toeoas- 
sinq van qeoubliceerde 
0 rod raftfta' 5, ' hardware etc. 
is alleen toeaestaan voor 
oersoonlijk gebruik. 

DE 6502 KENNER verschiint 
6 X oer jaar en heeft een 
oolage van 500 exeiolaim 

Cooyrioht (C) 1985 KIM 
Gebruifiers Club Nederland. 

De vooroaqina is een aaua- 
rel van een KIN, QWhil- 
derd door: 

Rima VliMch Bubeisi 

In verband aet auteurswet- 
oevinq en andere ftaatreqe- 
len 00 het qebied van be- 
scheriino van software 
kan de redaktie qeen aan- 
sorakeliikheid aanvaarden 
voor inzendinqen. 
Inzendinqen dienen afkoa- 
stio te zi.jn van de inzen- 
der,' tenzij anders 



mmamm oe 85Q2 kbmer ^ mii isbs 



1. Van de redaktie 

2. Tios voor CoModore 64 

3. Tios t Tricks voor CoMOdore 64 
... Bertrd vim Roiktl 

4. Uitnodiqino bl]wriNMiil ital*. Mtf iWi 

5. JUNIOR let VDU-kaart 
GREEDY, deel 3 (slot) 
... Phons BlfffiiBn 

6. JUNIOR aet D0SAV2.0fl 

Buq in Disc oatches on ftSSM/TEO 
... Hans Bttttraan 

7. JUNIOR Met Proton Dos 
Proton Utilitv Source 

FfiiMii : 

a. JUNIOR set OHIO Dos 

Aanoassina DS65D V3.3 PRINT&(X.Y)-co«iando 

... Jan van Heuven 

DATBAS. een bestandsoroaraAta 

... Jan van Heuven 

9. COMMODORE 64 

Centronics Printer Interface . . 
... Ruttd timff 

10. BASIC 

Tokenized Microsoft Basic Kevwords and Adresses 
tticii de Vriffii 

11. FORTH 

FORTH 00 JUNIOR-coeouter, deel 2 
... Gert van Oobroek 
FORTH Extensions 
... Ffidtts Jmkmn 

12. DIVERSEN 

Geheuaenolaats beki iken/wi iziggl iil 

Uaarschuwinq over reset schakeIi»?.ifeMiiili» tM 

Plotteroennen 

Vraaa en Aanbod 

Brief aan de redaktie 

Boekbesorekino 

Blokkeren flSClI-keyboard. A.C. Tijions 



s. 

4. 

4 

la. 

IS* 

a 

27. 

37. 

43. 

45. 
47. 



17. 
26. 
26. 
2,36,42. 
42. 
48. 
49. 



KEIMIMEIR 



Oo de landeliike bijeenkoist te Geldroo werd door 
onze bestuursleden A. Hankel en E. Visschediik 
het SYsteet aeintroduceerd waariee zi] beiden in 
tiddels. en bliikbaar net olezier, werken: CPU 
kaart, VDUkaart, uitqebreld raageheuoen eioen 
8K ionitor en het diskooerating svstesi DuS6S van 
ons clublid M BrouMer. 

Aan deze coiouter, die draait od de Elektuurbus, 
is oeen eioen naaA verbonden. Men heeft de nei- 
oina te sofeken over de JUNIOR ftet het D0S65. Dat 
lijiit ie echter niet juist, o<iidat hier het JUNIOR 
conceot aeheel verlaten is. MeAorytao zoMel als 
hardware'en softMafi teUNm mUNeliiks lets gf 
•een aet JUNIOR. 

Het oetoonde nieuMe conceot heeft de aanweziqen 
bliikbaar zo qeboeid dat ons uit Frankrijk over- 
oekoften lid Dfs. Ch. KleioooL inaiddels ook Ner- 
kend iet het svsteea, zich liet ontvallen: "nu de 
JUNIOR dood is Deze ooaerking heeft mi] aan 
het denken oezet. Ik doe het nu even hardoo, aan- 
neaend dat i'n vriend Kleioool de Miardi van aijn 
ooaerkinoen Meet in te schatten. 
In de eefste olaats lijkt het aii ooed even teruo 
te blikken naar de beoinoeriode van JUNIOR. Er is 
Mat voor te zeqgen daf de JUNIOR tot stand kMaa 
onder druk van'de tijd: eigenlijk te hooe coaoo- 
nentkosten voor een redeliik coiouterconceot voor 
zelfbouMers. De consessies aan dit ount ziin niet 
onoogeaerkt gebleven. Maar de leden van onze club 
Misten er Mel raad aee. In de afoelooen oaar jaar 
is toch heel ooed zichtbaar geMofden Mat er aet 
JUNIOR te doen valt, al aoet'gezegd dat soas het 
creatief veraogen Mel heel erg od de oroef Merd 
oesteld. Soaaioen hebben het gevoel dat aen niet 
in staat bleek'de JUNIOR een unifora jasie aan te 
trekken. En ze lijken qelijk te hebben ah Me aan 
het oebruik van verschillende Basics denken. Toch 
heb ik eerder de neiging te zeoaen dat de JUNIOR 
juist laat zien Meike veerschillende aoaelijkhe- 
den er zijn. Wie dat Mil kan aet een ^U-iiaart 
Merken. De JUNIOR kan Merken aet het Proton-Dos, 
aet OHIO-Dos 0S65D V3.3 en het Dos van Koen van 
NieuMenhove uit Beloie. 

Nu Elektuur in Duitsland al suksessen bereikt aet 
haar SAMS0N65 Dos-coaouter, is het niet zo heel 
verMonderliik dat uit de oelederen iets ookllnkt 
als "JUNIOR* is dood". Het 'is echter feiteliik on- 
juist. Het is in het land der oriizen nog steeds 
niet zo dat de hobbyist koning is, Draaien od het 
floooy-nivo is stoaMeq niet voor iedere beurs be- 
reikbaar. En dan ben ie aanaeMezen oo cassettes. 
Kant-en-klaar aachines bieden niet altiid datgene 
Mat aet zelfbouM-oroiekten Mel bereikbaar bliikt: 
zeer steviae parate kennis over Mat de coabinatie 
softMare en hardMare aankan. ZelfbouM betekent 
niet dat er oeen orobleaen aeer znn, aaar aet de 
kant-«n-klaaf coaouter, ik denk bijvoorbeeld aan 
de Coaaodore 64 en aet naae aan het traoe disk 
ooeratino systea, blijft er ook noq het nodiqe te 
Mensen over. Hoe je ook Ment of keert. naar aiin 
oordeel zullen er altijd aensen bli.iven die het 
geMOon boeiend blijven vinden zelf te bouMen. En 
het is nu juist hier dat de JUNIOR een uitkoast 
is. JUNIOR is derhalve niet dood. Inteoendeel! 



cm w I % m mm mm 



Net verbinden van orog raaaa' s aet de Coaaodore 64. 
De te verbinden orograaaa's aogen NIET dezelfde 



1. LOAD Laadt het eerste oroaraiaa. 

2. PRINT PEEK (43) Noteer dit oetal. * 

3. PRINT PEEK (44) Noteer dit oetal. 

4. ?m 43, (PEEK(45)+PEEK(46)*256-2)AND255 

5. POKE 44, IMH (PEEK (45) +PEEK (46) #256-2)7256) 

6. LOAD Laadt het tMeede orooraaaa. 

7. PC»(E 43, X X is het oetal uit ount 2. 
a. POKE 44, X X is het qetal uit ount 3. 
% UST U ziet nu'een listino v^ 

de tMee orooraaaa' s. 
10« De ounten '2 t/a 8 kunnen 

herhaald Morden indien noa 
aeer orooraaaa' s verliondeii 
aoeten Morden. 

C-&4 TIP 2 M .v.d. Velde, Helaond. 



De adressen 2049 en 2050. 



Deze tuee adressen hebben invloed oo/of Morden be- 

1. Naak een orooraaaa van enkele raiils. 

2. PRINT. PEEK (2043). PEEK (2050) 
Noteer da 2 fatal len. 

3. LIST U ziet nu orooraaaa. 

k Wm 20t9;e U ziet nu aliaen da etrstt 
regel. 

U krijgt oeen listing aeer. 
Net de gefallen uit ount 2. 
Heer een volledioe listino. 
Het coaaando NEW Mist Um orooraaaa (schi.in- 
baar) uit het oeheuoen. 
B. POKE 2049 en 2050 l>let de oetal len uit ount 2. 
9. Um orogfaaaa is iMf Ir- 

schikbaar. 
iwf aaar LlSi^ 



Pm 2050,0 
POKE 2049 en 2050 



VIDITEL 



I Mould like to coaaunicate Mith 
froa av hoae in the south of France. 
Mho can orovide ae Mith 6502- Junior saftnare far 
the Dutch Viditel systea? 

Or better still: Mho has the courage to Mrite neM 
or adaot existino softMare and oubl'ish this in DE 
6502 KENNER ? ' 

Our editor Millea van Pelt told ae that he Mould 
very audi Mtlcaai fmblicatioi» on this i^tir. 

Coen Kleioaol, Val de Perier, F*^10 Cdoolin, 
France. T.(94) 54.43.i2 



II.L. van Pelt. 



2 



E !Ei □ E! 



KEIMMER 



SPEC I PAL VOOR DE COMMODORE 64 BEZITTERS. 

Er zljn nofi steeds veei mensen die het «ebruiK van diskettes aan twee 
rUden in dm 1541 disk drive afraden. Toch wordt dit veetvuidis < en met 
veei succes ) toesePapt» .In mmw^m sevaiien Mordt een keepje aan de 
andere zi«>de van de clist^i^tte -irettiiikkt. Hiefvoor zNn speciaie mesies in 
de handei. Het kan ooK soedkoper en zonder e*n Iceepje in Uw dlmimimm tm^ 
maken met het hieronder beschreven schema. 



Benod i sdheden s 

Dubbe t P€> 1 1 mm sehAke i aa r met m i ddenstand 
Weefstiand 100 ohm 1/8 Nat^ 

Schema verkiarinss 



"D 

"0 



P8 



M O 

ft] 



ifiiit 



IS 



In het schema is een sedeeite van de 
printPiaat «etekend« zoais deze i n de 
1541 disk drive voorkomt. Op de konnektor 
P6 toevinden zich naas't eikaaf mm oranje 
en een paarse draad; deze twee saan via 
een weer stand van 100 ohm naar een schake- 
laar. In de maakstand van deze schaketaar 
is de 'write protect' van de drive opsehe- 
ven. De andere z i J de van de schakelaar 
wordt sebruikt voor het schakeien van de 
drive vafi devfiil #- ^fttif ^'Wmfmi-Wk' Let wei op dat de doorverbindins* 
semerkt K mm^mmmmdmm mm^ wm^dmmm Ris U sebriiiH i«ensi; te m*ken v«Mn 
device 9 en mm%m mro%m€% off kan dmt door eerst die drive op de Y^stand 
Ire f nit lAMsereii om daarii# oyer te schakeien naar stand 2. 



"D 



Schake I s tan den : 



X I ^de^ce 8 write protect on 
Y I device 9 wr,lr*ii protect mm. 
I I device 8 Hfmm-mmemmmrm^^i^. 



De 1526 printer is in feite een aansepaste CHINWft CTI CP B0 printer, ftan- 
sezien een technische handteidins van de 1526 moeiliJk verkriJsbaar isi 
Ran die van de SHINWR wordtn S|i|a^ryiKt« < m.u. v. voor wat bet reft de spe- 
cif ieke «anpas«l#iNNFi/¥#i# |i#:j|^^l7#l J 

Voor de 1541 drives 7:1 Jn reeds meerdere versies van de E/F DISK ROMS ver- 
•chenen oiMier de nuiiiiiers' 

901229-02 9011^^ mima^ 

Nusmer S im mm nieiii«ste. Hieruit zouden aiie BU08 Cfouten) se^ha«1t ziin. 



De TV we Ike op Uw CBM~64 is aansesloten heeft de mosei iJkheid om de 
lieeldkwal i tei t te verbeteren. Door een aansiuitins van een 2* 2K potmeter 
tiissen mm 1 Cl liitiiie#i;«> en Pen 4 < video pot) kan men door verdraaien van 
de (Nlti#irt#r iNNr^taft^ op een nomaltf TV verbeteren. 
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KEIMMER 



UITNODIGING 



B I J E E N K 0 M S T 



Datum 
Lokat ie 



mr auto - 



zaterdaq IS (tiei 1965 

Soeel t ui nqebouw Beek 1 ust /OssenkoooeleFtiiiii^ 



Vanuit het westen en het zuiden via de Al/ft35. 

1. Aan het einde van de snelweq rechtsaf. Bii 
stoDlichten rechtdoor, Na ca. 100 
stool ichten. Ga hier linksaf. 

2. Deze straat, de Jan Vermeerst raat, maakt een flauwe bot*ht naar 
rechts. ftan het einde van deze bocht ziet U links de lichtmasten 
van een voetbalveld. 6a linksaf. Het soeeltuimebow^^^ U na 
ca. 150 m. aan de linkerkant. 



W imirfe ita nver 



Mm 
mmn 



Zm Vanuit het noorden via de N36f 

Rij door tot '§mMMm:mimm'- Tl^eMim 
rechtsaf. Blirf MH| l^#lien« 

s DO 0 rweg o ve rganq . 

6a na ca. 150 m. linksaf. weer richtina Wierden/Zwolle. Na ca. 
200 m. ziet U rechts een TeKaco-benzim»feiMim. 6a hier 
rechtsaf. Verder als beschreven bi} ount 2. 



TQESf»NBSPRIJS 8 FL. 10. 



Lunchoakket eventueel zelf mee te nemen. 
Lunch is ook teqen vergoedinq verkri tgbaar. 
Konsuttoties teaen betalino. 



PR06RAMMA 5 09. 30 Zaal OEM^* - 

10.15 Oo^nlnd tfdor ife giwiheren ii^Sn VitfteWiiiTk #n fldri 
Hankel en door diens echtqi^fffllri, die voor een uiter»t 
vrlendeliike bediening en beqeleidino zorgen. 

10.30 SftMSON 65 DOS COMPUTER en de'toekomst. 



De heer Loys Nachtman van het welbekende tijdschrift 
Elektuur over de inmiddels in Duitsland suksesvolle 
SAMSON 65 Dos-coffiDuter met OHIO Dos 0S65D V3.3. 
Er zal niet alleen de comouter gedemonst reerd worden. 
heer Nachtman zal tevens lets vertellen over 
toekoAHiMjpi lantwikkelinqen di^maiifaaiifii^ 
11.30 Koffieoauze. 

11.45 Forum. flan het foruift kuniien "^"i^msmm W^^^ wm^e^am 
gll^rlei aard. 

12.00 Lunchoauze. 

13.00 INFORMEEL GEDEELTE. 

Tijdens het informeel gedeelte kunnen leden vrii 
elkaar en met elkaars ervarinoen kennis maken. Leden 
brengen hun svstemen mee en demonst reren dit aan de 
aanwezi aen. NEEM DflAROM UW COMPUTER MEE !!! 
MARK T. Oo eigen tafel(s) te reqelen. 

17.00 Sluitina. 



de 
de 



vait 



met 



mStM MiCRO-MARE ASSEMBLER SSXX-l. i 221184 PA% 01 



OOlOs 






GREEDY 


DEEL 3 (SLOT) 




0020: 












CCA-/, 


0030: 






PHONS BLOEMEN 




0040: 






VINKELAAN 200 




0050: 






5702 LX HELMOND 




0060 : 












0070 : BwjO 






GREEDY 


ORG 


$8800 




0080: 














0090: 






*♦» KLADBLOK- 


-ROM #*• 


0100: 














0110: 


00 


00 


DISPL 


« 


♦0000 




0120: 


02 


00 


VELDPL 


« 


♦0002 


VECTOR IN VELO^SEVENS RAH 


0130: 


04 


00 


PRPNTL 




♦0004 


PRINT-VECTOR 


0140: 


OB 


00 


JMIL 


* 


♦OOOB 


GEBRUIKT VOOR JMI 


0150: 


12 


00 


MAFLAG 


* 


♦0012 


VOORBIJ IS 


0160: 


lA 


00 


MATIM 


« 


♦001 A 




0170: 


20 


00 


HCOORL 




♦0020 


HULPCOORDINATEN I 


01808 


22 


00 


MCOORL 


* 


♦0022 


HULPCOORDINATEN II 




24 


00 


PMPOSL 


« 


♦0024 


POSITIE VAN GREEDY 


02001 


26 


00 


MAPOSL 


* 


♦0026 


POSIT IE HONSTER A 


0210: 


40 


00 


DIST 




♦0040 


AF8TANDC0DE 


0220: 


41 


00 


CHONE 


« 


♦0041 




0230: 


42 


00 


CHTWO 




♦0042 




02408 


47 


00 


E66NUM 


* 


♦0047 




02908 


46 


00 
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3570 

3580 

35901 

36001 

36101 

36201 

3630: 

3640: 

3650: 

3660: 

3670: 

3680: 

3690: 

37001 

37101 

37201 

37301 

3740 

3750 

37601 

37701 

3780: 

3790: 

3800: 

3810: 

3820: 

3690t 

mm* 



919D B8 
919E 2E 
919F 07 
91A0 AB 
91fll E2 
91A2 2A 
91A3 EA 
91A4 EB 
91A5 10 
91A6 28 
91A7 28 
91A8 28 
91A9 28 
91AA 28 
91AB 28 
91AC 28 
91AD 28 
91AE EO 
91AF 00 
91B0 3F 
91B1 E5 
91B2 E5 
91B3 E5 
91B4 E5 
91B5 E5 
91B6 92 
91B7 92 
91B8 92 
91B9 92 
91BA 92 
91BB 92 
91BC 92 
91B0 92 
91BE 91 
91BF 92 
91C0 92 
91C1 91 
91C2 91 
91C3 91 
91C4 91 
91C5 91 



TABLB 



TABLC 



fEB 
«10 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
ILLE6 
NPUNT 
DPUNT 
STORE 
STORE 
STORE 
STORE 
STORE 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
BARICA 
ILLE6 
NPUNT 
DPUNT 
STORE 
STORE 
STORE 
STORE 
STORE 



BARRICADES 
KLEII«E PUNT 
NIEUUE PUNT 
DIKI^ PUNT 
POWER 
STER 
8LETEL 



LATEN VERDWIJNE 



OPBERSei EN VERBER NIETS 



91C6 
91C9 
91CC 
91CE 
91D0 
9iDl 
91D2 
91D5 
91D8 
91DA 
91DD 



20 F8 92 
B9 60 ^ 
C9 80 
10 05 
68 
68 

4C F2 80 
B9 T4 00 
61 26 
20 9A 80 
4C 16 91 



QNTHQE JSR XYUP ZET X EN Y OP 

U}AAY MASTAT EETBAAR-VLA6 AAN ? 
CMPIM •80 SM; 7 BESET ? 



OPETEN 



BPL 
PLA 
PLA 
JMP 

OPETEN LOAAY HACHAR 



DEAD 



91E0 A9 00 
91E2 18 
91E3 69 01 
91E5 48 
91E6 A6 SB 
91E8 B5 74 
91EA 85 SA 
91EC C9 AB 
91EE DO 03 
91F0 20 9C 8B 



JMP SIT 

ILLE6 LDAIM «00 
PLUSON CLC 

AOCIM fOl 

LDX MONBEH 
LOAAX MACHAR 
STA CHAR 
CMPIM «AB 
BNE NDIK 
JSR INPOIN 



N00DUIT6AN6 UIT SUBROUTINE 

MONSTER EET 6REEDY OP 

ZET KARAKTER UAAR MONSTER 
OP STOND TERU6 
VOER OPEETROUTINE UIT 



VERWIJDE VLEKJE 

TIL EEN M0NSTERVER6ANG BIJ 



STORE 



HAAL KARAKTER WAAR MONSTER EERST OP 
STOND DM HET TERU6 TE ZiTTQ* 
NIEUWE DIKKE PUNT ? 
DAN PUNTENTELLER NU WmSSSm ! 
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3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110! 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320: 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470: 

44001 



91F3 20 F8 92 
91F6 68 
91F7 99 74 00 
91Ffl 20 D3 92 
91FD 4C 16 91 



9200 
9202 
9204 
9206 
9208 
9200 
920C 
920E 
9210 
9212 
9214 
9216 
9218 
9210 
921C 
921E 
9221 
9223 
9225 



05 21 
C9 D3 
DO 00 
05 20 
C9 54 
FO D4 
C9 5E 
FO DO 
E6 47 
05 47 
C9 BO 
FO 09 
05 48 
DO C4 
09 OB 
4C E5 91 
09 01 
85 48 
4C EO 91 



9228 20 F8 92 
922B B9 60 00 
922E 49 FO 
9230 25 5C 
9232 85 5C 
9234 B5 26 
9236 85 20 
9238 B5 27 
923A as 21 
«^ 4C 6F 92 

923F 20 2E BF 
9242 BO 05 
9244 09 2E 
9246 4C E5 91 
9249 68 
9240 68 
924B 09 00 
924D 00 00 
924F 91 20 
9251 4C 9C 8C 



9254 
9256 
9258 
925B 
925D 
925F 
9261 
9263 
9265 
9267 
9269 
926B 
926D 



06 5B 
B5 60 
20 D8 
49 FO 
25 5C 
85 5C 
B5 60 
C9 80 
10 08 
C9 04 
10 30 
C9 02 
10 29 



8F 



NDIK JSR XYUP ZET X EN Y OP 

PLO KOROKTER WOOR MONSTER 

STOOY MOCHOR OP BOOT STOON 
JSR MONDIS VERPLOOTS MONSTER OP SCHERM 
JMP SIT EN ZET VERTROGINGEN WEER OP 



NPUNT LDO 

CMPIM 

BNE 

LDO 

CMPIM 

BEQ 

CMPIM 

BEQ 

NIEUW INC 
LDO 
CMPIM 
BEQ 
LDO 
BNE 
LDOIM 
JMP 

E66UP LDOIM 
STO 
JMP 

BARICO JSR 



ij op STJgTPLOftTSEN 



HCOORL +01 
PMSTR / 
NIEUW Ht ^ 

HCOORL . ^ r ' 
PMSTR V • V, 

ILLE6 ZET Itf-'H^R «00 
MESTR 
ILLEB 

E66NUM 1 PUNT SEPM^EERD 
EGGNUM MAX 176 EI©^LE66EN 
«B0 

E66UP 

EG6FLB MOB EI BELEBD WORDEN ? 
ILLEB 

«0B MOOK NIEUW OIK PUNT 
STORE 

♦01 ZET DE VLAB . 

EBBFLB 
ILLEB 



XYUP 

LDOOY MODIR RICCHTIN6 IN MODIR 
EORIM «F0 IS NU NIET MEER M06ELIJK 

DIRSTO DUS BITJE SCHRAPPEM Utt WWSm 
DIRSTO , 



AND 

STO 

LDOOX MflPOSL 

STO HCOORL HERSTEL DUDE HCOORL 
LDOOX MOPOSL +01 



DPUNT 



WLDEPT 



STA 

3m 

JSR 

BCS 

LDOIM 

JMP 

PLO 

PLO 

LDOIM 

LDYIM 

STOIY 

JMP 



JRL +01 

W KIES NIEUME RICHTIMS 



DEPOIN 
VLDEPT 
*2E 
STORE 



♦00 
♦00 

HCOORL 
EMPTY 



TREK EEN PUNT VAN PUNTENTELLER AF 
VELD LEE6 ? 

MAAK ER EEN DUN PUNT VAN 
NOODUITGANB UIT SlffiROUTINi 

VERwiJBiR mur 

0=0. 7 X BONMS 



♦** KEUZE NIEUWE RICHTIN6 



CHOIR 



LDX 

LDOOX 

JSR 

EORIM 

AND 

STO 

LDOOX 

CMPIM 

BPL 

CMPIM 

BPL 

CMPIM 

BPL 



MONBEH 
MODIR 
TURN 
♦FO 

DIRSTO 

DIRSTO 

MOSTOT 

♦80 

LUCKY 

♦04 

TROCE 

♦02 

GUARD 



ELIMINEER RICHTIN6 TEGEN0VER6ESTEL0 
AAN OUDE RICHTIN6 VAN MCMSTER 



HOOL STOTUS MONSTER OP 

EETBOOR MONSTER ? 

ZOMOOR LOTEN LOPEN 

HOE HOGER DE STOTUS 

DES TE SLIMMER HET MONSTER 
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4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 

■mm- 

4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
47S0 
4100 
4810 
4820 
4630 
4640 
4850 
4860 
4870 
4880 
4890 
4900 
4S10 
4920 
4930 
4940 
49S0 
4960 
4970 
4960 
4990 
5000 
SOiO 
5020 
5030 
5040 
5050 
SK]NB0 
5070 
5080 
5090 
5100 
5110 
5120 



««« itflNDOM LATEN LOPEN ««• 



926F 


20 


07 


92 


LUCKY 


TAB 

JSR 


rrndir 


9272 


05 


5C 






LDA 


DIRSTA 


9274 


FO 


IF 






BEQ 


IMPOS 


9276 


h5 


5D 




TOW 

TRY 


1 r\r\ 


DIRECE 






5C 






HlMi/ 


I/l no 1 H 


9270 


DO 


05 






BIC 


KLOOR 


927C 


06 


5D 






A8L 


DIRECE 


927E 


4C 


76 


92 




JMP 


TRY 


9261 


06 


5B 




KLOAR 


LDX 


MONBEH 


9263 


05 


5D 






LDA 


DIRECE 


9265 


95 


60 






STAAX 


MADIR 


9287 


20 


BO 


8B 




JSR 


VELVEC 


926A 


05 


5D 






LDA 


DIRE^ 


928C 


00 


00 






LDYIM 


♦00 


926E 


31 


20 






ANDIY 


HCOORL 


9290 


FO 


03 






BEQ 


IMPOS 


9292 


4C 


51 


91 




JMP 


GOON 


9295 


4C 


16 91 


II«V>OS 


JMP 


SIT 


9298 


4C 


FE 




6UARD 


JMP 


6A 


929B 


4C 


57 




TRACE 


JMP 


TRA 



ZOU HELEMOOL NIET SEIOiP 



DOE HELEMAAL NIETS 



RANDOM i KIEST EEN &mm^ TUSSEN 0 EN 3 



: 929E 


AD 


04 16 


t 92A1 


4D 


08 18 


1 92A4 


29 


03 


t 92A6 


60 





RANDOM LDA »1804 

EOR fiaos 

ANDIM im 
ITS 



LEES VIA fMi REBISTER UIT 



92A7 


20 


9E 92 


RANDIR JSR 


92AA 


AA 




TAX 


92AB 


38 




SEC 


92AC 


A9 


08 


LSAIM 


92AE 


65 


5D 


8TA 


92B0 


26 




R0T ROL 


92B2 


CA 






92B3 


10 


'FB 




92B5 


60 




RTS 



RANDIR : KIEST EEN MILLEKERIGE RICHTIN6 



RAMKK^ MAAL 6ETAL 

wm X 



: 92B6 


AO 


00 


t 92B6 


Bl 


20 


t 92BA 


29 


FO 


i 92BC 


85 


5C 


t 92BE 


20 


C9 92 


1 92C1 


CO 


03 


t 92C3 


10 


02 


1 92C5 


18 




: 92C6 


60 




: 92C7 






t 92C8 


60 




! 92C9 




m 


i 92CB 


OA 




t 92CC 


90 


01 



«08 CONFieUROTIE 00001000 
DIRECE ROTEREN TOT X LEES IS 

mr 



CROSS 3 KIJK OF MONSTER OP KRUISIN6 ZIT 

CRC^ LDYIM too 

LBAIY HCOOm. HOOL RICHTINQENPLAAtJl 

mDin *F0 ALLEEN BIT 4-5-6-7 

im DIRSTA M06ELIJKE RICHTIN6EN 

JBti BITNUM KIJK HCEVEEL ER M06ELIJK ZIJN 

CPYIM «03 MEER DAN 3 RICHTIN6EN ? 

BPL CRC 

CLC C«0 

RTS 

CRC SEC C«l 
RTS 

MTIiUM i mmVEEL BITS IN A BESET ZIJN 



BITNUM LOXIM tOB 
BITA ASLA 

BCC BITS 



SCHUIF 
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QorF 

T7XLrCl 


TA 








I NY 








•7X.WI 








BITB 


DEX 




Y is^m^^R^ 


"51 SO! 




10 


FQ 






BPL 


BITA 




wl J. DV • 




.©V 








RT8 






SI 70! 
















\ AWC:, 


SI AO: 










MONDIS 


t VERPLAATS MON^l fWOfOClit- 


SI 90: 






















90 


FA 




MONOIS JSR 


XYUP 


ZET X EN Y OP 


S-^l O s 




90 
^v 


0 1 


OO 




JSR 


DISVEC 


HET MONSTER STflflT IN HCOORL 






£^S 
Ho 


SQ 
oH 






LDfl 


CHAR 


KflRflKTER WflflR M0N811^1|»> iHUlt 


SOTO ■ 




A1 








STftlX 


MAPOSL 


WIS MONSTER ERMEE 






DS 
no 


90 






LDO 


HCOORL 


BRENG NIEUWE COOROINATEN 


SOSO ■ 




QS 

70 








STOAX 


MAPOSL 


OVER IN MAPSL 






QS 

HO 


X. 1 






LDfl 


HCOORL 


+01 




Q9FT 


<9S 
70 


97 

JL 1 






STAAX 


MAPOSL 


+01 






RQ 

Dj 


fiO 


Oft 




LDOflY 


MflSTflT 


KIJK NflflR STATUS 








AO 






CMPIM 


«80 


GRIJS MAKEN ? 


STOO ! 




1 O 


07 






BPL 


6REY 




ST1 O ! 




QA 








TYfi 




BEPAAL FI6UURTJE 


5320! 


g2ED 


18 








CLC 






5330! 


92EE 


69 


E5 






ODCIM 


*E5 


DOOR ♦ES OP TE TELLEN 


5340! 


92F0 


4C 


F5 


92 




JMP 


FIG 




5350! 


92F3 


09 


BB 




6REY 


LDAIM 


»BB 




Dobu < 


y^rD 


Q 1 

ol 


ZD 




FIS 


STftlX 


MAPOSL 


ZET MONSTER OP SCHERM 


Do « 


QOC7 










RTS 






DooU • 


















STQO • 










XYUP : 


ZET MONBEH IN Y EN HET DUBBELE IN X 


tZ A A A « 


















Bb/i 1 A < 


• Q*:>FA 


QS 
Ho 


SR 
oO 




XYUP 


LDfl 


MONBEH 




e/,OA • 
D*4Zv • 


• Q'^FO 


QA 
HO 








TOY 






K/t TA • 


» ^ZrD 


OQ 
vH 








ftSLft 










QQ 
HH 








TftX 






Cs/i CCA < 




bu 








RTS 






b:/i OA • 










*** BEWflfiK ROUTINE VOOR POWERPILLEN *** 


DaoU • 

S/i QO • 


• qoFF 


QQ 
M -7 


OA 




6A 


LDftIM 


»04 


ER ZIJN MAX 4 POWERPILLEN 


s"=;oo • 




AS 
OO 


ST 

OO 






STft 


CTRLfl 




DDlU < 




QiR 
Ho 


SR 
os^ 






LDfl 


MONBEH 


OM NIET ALTIJD DEZELFOE 




» yoU«4 


zy 


OT 
Uo 




WHICH 


PNDIM 


«03 


TE NEMEN ALS EBI^TE 






QQ 
HH 








TAX 








» QTA7 
• you / 


ol/ 


TA 
oO 


70 




LDAflX 


PWTflB 


HAAL t^nHDINATEN VAN POUERPIL OP 


DDDU 


• yoUH 


OD 








STfl 


MCOORL 




DDbU 


• QTAP 

• yoUL 


on 


oU 


QT 

yo 




LDflflX 


PWTflBB 




c;cr-7A 
DD/U 




oD 


OT 
Zo 






STfl 


MCOORL 


+01 


DDoU 


• yoi 1 


AA 
HU 


AA 






LDYIM 


♦00 


STAAT DE PIL ER NOB ? 


DOW 


■ yolo 


Ol 


OO 
ZZ 






LDfllY 


MCOORL 


crc AA 

DbUU 


i yoiD 


Ly 


bz 






CMPIM 


♦E2 




DblU 


• yol / 


FA 


07 
Z / 






BEQ 


FND 




5620 


s 9319 




RT 
o«^ 






DEC 


CTRLfl 


ALLES 6EPR0BEERD ? 


5630 


: 931B 


FO 


05 






BEQ 


MOVER 




5640 


: 931D 


E8 








I NX 






5650 


: 931E 


8A 








TXfl 




PflK GEWOON DE V0L6ENDE 


5660 


: 931F 


4C 


04 


93 




JMP 


WHICH 




5670 


: 9322 


A6 


5B 




MOVER 


LDX 


MONBEH 


VERANDER STATUS 


5680 


: 9324 


B5 


60 






LDflflX 


MflSTflT 


I, 


5690 


: 9326 


C9 


02 






CMPIM 


♦02 


STATUS 2 ? 


5700 


: 9328 


FO 


07 






BEQ 


DOLOS 




5710 


: 932P 


ft9 


05 






LOAIM 


♦05 


STATUS 3 WORDT STATUS 5 


5720 


: 932C 


95 


60 






STflflX 


MflSTflT 




5730 


: 932E 


4C 


57 


93 




JMP 


TRfl 




5740 


: 9331 


09 


01 






LDAIM 


♦01 


STATUS 2 UQRDT STATUS 1 


57508 9333 


95 


&0 






STAAX 


MASTAT 




57iQs 9335 


4C 


6F 92 




JMP 


LUCKY 





1^ 
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5770 


! 9338 


06 






PWTAB 


m 


POWA 


TABEL MET COORDINATEN 


5780 


: 9339 


2E 








m 


POMB 


POMERPILLPI 


5790 


: 933fl 


86 








» 


POWC 


5800 


: 933B 


ftE 








m 


POWD 




5810 


: 933C 


Dl 






PWTABB 


m 


POWA 


/ 


5820 


: 933D 


Dl 








Si 


POWB 


/ 


5830 


: 933E 


D5 








m 


POWC 


/ 


5840 


: 933F 


D5 








3B 


POWD 


/ 


5850 


















58&0 


: 9340 


20 


96 


93 


FND 


JSR 


BEREK 


BEREKEN RICHTING NAAR PIL 


5870 


: 9343 


fl5 


41 




CH 


LDA 


CHONE 


KIJK NAAR EERSTE KEUS 


5880 


! 9345 


25 


5C 






AND 


DIRSTA 


M06ELIJK ? 


5890 


: 9347 


DO 


09 






BNE 


MOB 




5900 


: 9349 


A5 


42 






LDA 


CHTWO 


TWEEDE KEUS 


5910 


: 934B 


25 


5C 






AND 


DIRSTA 




5920 


! 934D 


DO 


03 






BNE 


MOB 




5930 


: 934F 


4C 


6F 


92 




JMP 


LUCKY 


DAN KIES ER ZOMAAR EEN 


5940 


: 9352 


85 


5D 






STA 


DIRtCE 


NIEUWE RICHTINB 


5950 


: 9354 


4C 


81 


92 




JMP 


KLAAR 


LAATSTE CONTROLE 


5960 


















5970 










*** ROUTINE OM BREEDY TE VOLBEN *** 


5980 


















5990 


: 9357 


fl5 


24 




TRA 


LDA 


PMPOSL 


ZET COORDINATEN BREEDY IN 


6000 


! 9359 


85 


22 






STA 


MCOORL 


MCOORL VOOR BERBIEICN 


6010 


: 935B 


fl5 


25 






LDA 


PMPOSL 


+01 RICHTINB 


6020 


! 935D 


85 


23 






STA 


MCOORL 


+01 


6030 


! 935F 


20 


96 


93 




JSR 


BEREK 




6040 


! 9362 


ft6 


5B 






LDX 


MONBEH 




6050 


! 9364 


B5 


60 






LDAAX 


MASTAT 


IS HET STATUS 4. 


6060 


: 9366 


C9 


04 






CMPIM 


$04 


DE 'PLAKKER' 7 


6070 


! 9368 


FO 


09 






BEQ 


NDICHT 




6080 


: 936fi 


fl5 


40 






LDA 


DIST 


MONSTER NIET TE DICHTBIJ. 


6090 


! 936C 


C9 


OF 






CMPIM 


*0F 


OM HET EERLIJK TE HQUDEN 


6100 


! 936E 


BO 


03 






BCS 


NDICHT 


6110 


! 9370 


4C 


6F 


92 


NTRACE 


JMP 


LUCKY 


DOE HET OP DE BOK 


6120 


! 9373 


B5 


60 




NDICHT 


LDAAX 


MASTAT 


KIJK NAAR DE STATUl 


6130 


! 9375 


ft4 


40 






LDY 


DIST 


AFSTAND IN Y 


6140^ 


! 9377 


29 


03 






ANDIM 


$03 


STAT I 4-5-6-7 WOROEN 0-1-2-3 


6150 


! 9379 


FO 


OA 






BEQ 


PLAK 


NR 4: PLAKKER 


6160 


! 937B 


ftft 








TAX 






61701 


! 937C 


Cft 








DEX 






6180i 


! 937D 


FO OB 






BEQ 


TRACA 


m 5 VOLBER TUSSEN 15 EN 35 


6190i 


! 937F 


CA 








DEX 






6200! 


! 9380 


FO 


OD 






BEQ 


TRACB 


NR 6 VOLBER TUSSEN 15 EN 70 


62101 


! 9382 


4C 


93 


93 




JMP 


TRACC 


NR 7 VOLBER TUSSEN 15 EN 0NEIN0I6 


62201 


! 9385 


CO 


OF 




PLAK 


CPYIM 


*0F 


NIET VERDER DAN IS ' 


6230' 


! 9387 


4C 


91 


93 




JMP 


RUIK 


6240 i 


i 938A 


CO 


23 




TRACA 


CPYIM 


$23 




6250! 


! 938C 


4C 


91 


93 




JMP 


RUIK 




6260! 


! 938F 


CO 


46 




TRACB 


CPYIM 


$46 




6270! 


! 9391 


10 


DD 




RUIK 


BPL 


NTRACE 


BUI TEN BEREIK ? 


6280! 


! 9393 


4C 


43 


93 


TRACC 


JMP 


CH 


KIES OE BESTE RICHTINB 


6290! 
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AI 
Ul 


AI 
Ul 


Ai 
Ul 


Ai 

Ul 


AA 
UU 


AA 
H4 


00 01 


AI Ai AI 
Ul Ul Ul 


7LHU« 


A1 
Ul 


AA 
Uo 


AA 
Ho 


AA 
Uo 


A1 
Ul 


AI 
Ul 


AI 
Ul 


AI 
Ul 


AT 
UJ 


AA 
UU 


AA 
H4 


00 01 


AI AI AI 
Ul Ul Ul 


op DA I 


A1 
Ul 


AA 
UU 


AA 
H4 


AA 
UU 


AT 
UJ 


AA 
UU 


AT 
UL 


AQ 

Uj 


AQ 
Uj 


AQ 
Uj 


AQ 
Uj 


09 09 


AQ AQ AT 
U J Uj UL 


qrpAi 
3LLU< 


AT 
vJ 


AA 
UU 


DA 
04 


SA 
J4 


SA 
D4 


SA 
j4 


7A 
f 4 


SA 
J4 


CA 
J4 


SA 
J4 


TA 
L4 


00 03 


AA TA SA 
UU J4 D4 




54 


54 


F4 


54 


54 


54 


54 


54 


54 


54 


F4 


54 54 


54 54 54 


9CE0i 


54 


54 


F4 


54 


54 


54 


64 


00 


03 


00 


94 


54 54 


54 74 54 


9CF0! 


54 


54 


E4 


00 


03 


00 


00 


00 


00 


00 


00 


00 00 


00 00 00 


9D00! 


03 


09 


A9 


09 


02 


00 


A4 


00 


02 


02 


02 


02 03 


00 A4 00 


9D10! 


02 


00 


A4 


00 


02 


02 


02 


02 


02 


00 


A4 


00 02 


02 02 02 


9D20! 


02 


00 


A4 


00 


02 


00 


A4 


00 


03 


02 


02 


02 02 


00 A4 00 


9D30! 


02 


09 


A9 


09 


03 


00 


03 


01 


01 


01 


01 


01 01 


01 01 03 


9D40! 


03 


00 


A5 


00 


03 


00 


A4 


00 


01 


01 


01 


01 01 


00 A4 00 


9D50i 


03 


00 


A4 


00 


01 


01 


01 


01 


01 


00 


A4 


00 01 


01 01 01 


9060: 


01 


00 


A4 


00 


03 


00 


A4 


00 


01 


01 


01 


01 01 


00 A4 00 


9D70! 


03 


00 


A5 


00 


03 


00 


03 


00 


OF 


OF 


OF 


OF OF 


OF 00 03 


9DaO: 


03 


00 


AD 


00 


03 


00 


97 


54 


54 


54 


74 


54 54 


54 E4 00 


9D90i 


03 


00 


B4 


54 


54 


54 


74 


54 


54 


54 


D4 


54 54 


54 74 54 


90A0! 


54 


54 


E4 


00 


03 


00 


B4 


54 


54 


54 


74 


54 54 


54 C7 00 


90B0i 


03 


00 


AD 


00 


03 


00 


03 


02 


02 


02 


02 


02 02 


02 02 03 


9DC0i 


03 


00 


AS 


00 


03 


02 


02 


02 


02 


09 


A9 


09 02 


00 A4 00 


9DD0: 


03 


00 


A4 


00 


02 


00 


A4 


00 


02 


02 


02 


02 02 


00 A4 00 


9DE0: 


02 


00 


A4 


00 


03 


00 


A4 


00 


02 


09 


A9 


09 02 


02 02 02 



9^t 03 00 flS 00 03 00 00 00 00 00 00 00 00 00 00 00 



5 □ S 



9E00! 
9E10I 
9E20! 
9E30I 
9E40I 
9E50! 
9E60I 
9E70I 
9Ea0i 
9E90: 
9EflO! 
9EB0! 
9EC01 
9B»i 
9EE0! 
9EF0: 
SFOO: 

moi 

SF20: 
9F30I 
9F40S 
9FS0: 
9Ffi0i 
IF70J 
IFBO: 
SF90: 
9FM: 
9FB0: 
SFCO: 
9FD0: 
9FE0: 
9FF0: 

moot 



0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


c 


0 


E 


F 


AT 

03 


AA 

00 


An 

hD 


AA 

00 


A4 

01 


A4 

01 


A4 

01 


A4 

01 


A4 

01 


00 


AO 


00 




00 


M 


00 


ul 


AA 
00 


AA 

m 


AA 

00 


AT 

03 


AA 

00 


AA 

m 


AA 

00 


A4 

01 


A4 

01 


A4 

01 


01 


Ai 

01 


00 


Aa 

R4 


00 


03 


AA 

00 


A^ 

m 


AA 

00 


01 


AA 

00 


A4 


00 


03 


00 


AO 


00 


01 


01 


01 


01 


01 


AA 

00 


An 

AD 


00 


03 


00 


03 


01 


01 


01 


01 


01 


01 


01 


01 


03 


AT 

03 


AA 

00 


95 


cn 

5D 


55 


cm 

5D 


55 


en 

So 


55 


5D 


cs 


00 


03 


00 


94 


54 


54 


54 


CA 


AA 

00 


AY 

03 


00 


94 


54 


54 


54 


74 


54 


54 


54 


C4 


00 


AT 

03 


AA 

00 


an 

9B 


54 


54 


54 


C4 


00 


03 


00 


95 


5D 


55 


SD 


55 


S) 


55 


50 


C5 


00 


03 


00 


03 


00 


OF 


OF 


OF 


OF 


OF 


OF 


00 


03 


AT 

03 


AO 

02 


AO 

02 


AO 

02 


02 


AO 

02 


02 


02 


02 


02 


02 


02 


03 


02 


02 


02 


A^ 

02 


AO 

02 


AO 

02 


AO 

02 


AT 

03 


AO 

02 


AO 

02 


AO 

02 


02 


00 


AO 


00 


02 


02 


02 


02 


03 


02 


02 


02 


02 


02 


02 


02 


03 


02 


02 


02 


02 


02 


02 


02 


02 


A1 

02 


02 


02 


03 


00 


03 


00 


00 


00 


00 


00 


00 


00 


00 


03 


AA 

00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


AiA 


00 


AA 

00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


AA 

00 


AA 

00 


AA 

00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


03 


00 


OF 


OF 


OF 


OF 


OF 


OF 


00 


03 


oc 


oc 


oc 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


i 


oc 


oc 


oc 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


oc 


oc 


oc 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


OC 


oc 


oc 


oc 


oc 


OC 


OC 


00 


03 


02 


02 


02 


02 


02 


02 


02 


02 


03 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


AA 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


AA 

00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


oe 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


08 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 




JUNIOli 



iM Uw computer fi i #t ui t«#vo#rd wm% maeHi mmi tor dan kan men 

met PEEK en POKE even snel een 9eheu9enpl aats bekiJken of wiJztsen. Wi I 
men meerdere Piaatsen bek liken dan wordt dit toch een tijdrovende zaak. 
Toets echter onderstaand korte provramma int en U heeft een direkt over- 
Zicht van 40 adreesen. Het aantai te printen adressen IB te Hiiziwm In 
resei 40. Het etartadres dient decimaai in«e«even te MOiEden* 

i0 INPUT"GEEF STARTftDRES"|A 
2B PRINTft"-"PEEK<ft), 
30 ft=ft+l xB=B+l 
40 IFB=40THENEND 
m (i3TO20 



GEEF STARTPDRES? 49152 



49152 - 


76 


49153 




109 


49154 




222 


49155 




35 


491^^ 




198 


mtm - 


m 


49158 




197 


49159 




215 


49160 




202 


4iitt 




im 


49162 - 


199 


491B3 




164 


49164 




201 


491E5 




84 


49166 




206 


49167 - 


228 


49168 




201 


49169 




46 


49170 




200 


49171 




46 


49172 - 


199 


49175 


am 


6 


49174 




199 


491 75 






49176 




199 


49177 - 


9 


49178 




198 


49179 




17 


49180 




199 


49181 




91 


49182 - 


199 


49183 




196 


49184 




199 


49185 




33 


49186 




196 


41118? 


tl2' 


4911^: 


■■■mm_ 


1^ 


491S9 




%m 


49190 




1^98 


49191 




226 



17 



5 □ iE! 



KEMMER 



4162- 60 



4163- 
4166- 
4168- 
416B- 
416D- 
416F- 
4172- 
4174- 
4176- 
4178- 
4170- 
417C- 
417F- 
4181- 
4183- 
4185- 
4187- 
418A- 
418C- 
418F- 
4191- 

4192- 
4195- 
4197- 
419ft- 
419C- 
419E- 
41fll- 
4103- 
4105- 
41fl7- 
41flfl- 
41flB- 
41flE- 
41B0- 
41B1- 
41B3- 
41B5- 
41B7- 
41B8- 
41Bfl- 
41BC- 
41BE- 



20 87 
05 3E 
CD 26 
DO 07 
05 3F 
CD 27 
FO EE 
00 00 



Bl 
02 



3E 
58 



00 04 
20 24 
E6 3E 
DO E3 
E6 3F 
DO DF 
OD 24 
85 3E 
OD 25 
85 3F 
60 

20 87 
05 3E 
CD 26 
DO 07 
05 3F 
CD 27 
FO EE 
02 DO 
00 03 
20 27 
48 

OD 23 
FO 07 
68 

00 00 
91 3E 
FO 01 
68 

E6 3E 
DO D9 
E6 3F 
DO OS 



4109- 09 92 
//OOOO, 41DB,41DB 



0001 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
41 0280 
0290 
01 0300 
0310 
0320 
01 0330 
0340 
0350 
0360 
0370 
0380 
7C 0390 
0400 
0410 
0420 
0430 
01 0440 
0450 
01 0460 
0470 
0480 
0490 
41 0500 
0510 
0520 
0530 
0540 
01 0550 
0560 
0570 
0580 
7C 0590 
0600 
01 0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 



01 



.LS 

BU6 IN DISC PATCHES ON Carl MOSER' S *♦# 
**» ASSEMBLER OSSM/TED FOR Disc Ooeratino * 
*** System D0S0V2. 00 BY Ko«n van Niauiram- « 
*** hove. Osse. Beloium #*« 

AUTHOR » HANS BUURMAN 

VAN DER FUYCKSTRfWT 136 
3232 AS BRIELLE 
THE NETHERLANDS 

WHEN ON THE OLD PATCH A ' PU X' COMMAND WAS GlVii. 

A FILE WITH LENGTH 0 SHOULD HAVE BEEN WRITTEN. 

HOWEVER, A 64K FILE WAS WRITTEN. 

TO ECONOMISE ON DISC SPACE. FOLLOW I N6 CHANBE IS 

ADVISEDt 

.BA •4162 



DOS REFERENCES: 

WRTBUF .DE $458 

REDBUF .DE $3D0 

DOS .DE ♦7C00 (IN MY DOS) 

BYTOT .DE D0S+*24 

BYTIN .DE D0S+$27 

■ 

END RTS ' " 

DISCO. VEC JSR I NIT 



NEXT 



NEXTl 



INIT 



NEXT4 



DISCI. VEC 
NEXT3 



NEXT2 



NEXT5 
NEXT6 



LDO *$3E 

CMP ♦126^(*127,*126) CONTAINS END OF FILE 

LDO **3F 
CMP $127 
BEQ END 
LDY #0 
LDO <»3E).Y 
LDX #L, WRTBUF 
LDY #H, WRTBUF 

JSR BYTOT MRITE BYTE TO DISC 
INC *%ZE 
BNE NEXT 
INC ♦♦SF 
BNE NEXT 

LDO $124 ($125. $124) CONTAINS STARTADDRESS 

STO *$3E ■ - ' - 

LDO $125 

STO #$3F 

RTS 

JSR INIT 
LDO *$3E 

CMP $126^ ($127. $126) CONTAINS END-ADDRESS 

LDO #$3F^ 
CMP $127 
BEQ NEXT4 
LDX #L. REDBUF 
LDY #H. REDBUF 

JSR BYTIN mm wm 0mm mm 

PHO 

LDO $123 

BEQ NEXT5 DO NOT STORE IF $123»0 
PLO 

LDY #0 ELSE STORE BYTE 
STO ($3E).Y 
BEQ NEXT6 , 
PLO 

INC *$3E 
BNE NEXT3 
INC #$3F 
BNE NEXT3 

.BO $41D9 

LDA «L. DISCI. VEC 
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Ei 5 O iP* KENMER 



Onder d© titel " Proton utMlty mmurc^ " zai ik in e#ri aantai 

68il2 l<#firtwT»» d# 6 Proton htf ) pprrtorf r jinima^ s < mcop^m > < W^f^m > 4 m^OPiD^ > 

< UTILh-: > < ^^:COMP:+: > publtceren. 

Deze source worden met toestemmi ng van Proton ge-pud M ceerd. 

De aan I e i d i ng van deze publicatie is een aantai klein© foutSmm 

In de code-file' B, < 4:COMP>*: > < UTIL*: > < *:COPyM-: > m 

0e f i rwmt WMtm^ott nee ft deste Kiefne foutjes op ml jn v#t2!:d#k ter^tond 
verbeterd en gelljktijdig toestemming tot publicatie gegevett- 
Ik denk dat dit voor de Proton bez Itters pretti g nieuws is. 

Ee-n leder Kan de source ze-lf intoetsen en daarna a&&#(libl €*r#ii #n dan 
de nieuwe verbeterde code gaan gebruiken. 

Met door Proton ger eve rde commentaar Is beperkt, mamr Voor ##n Pr^wn 
gebruiker vol gens mij voldoende. 

Mocht er echter behoefte bestaan aan veel meer commentaar laat het 
dan #v#n aan mi j wet en, dan 2: a I Ik bij de votge^fide #n«*» zmit mmmr 
commentaar toevoegen» 

net eerste programma dat fk heb oitf#Kozen is de of fm#t roader. 
Alle utility programma' s zijn bedoeld voor D i sk-f unct i e' s, zodat het 
voor het begrijpen van de source file's makkeiiJK is wf* weten ty^m 

Proton de code op de f i oppf * s w#f ncfir f jft . 

Met behulp van een FORTH programma wat geschreven is in Proton POttTHt 

kan ik eike gewenste sector van af een floppy ultprlnten. 

%n tteb dan 00k een dump ^mm m> cmim^ van het programma OLOAfNH fii tc bl j 

afgedrukt. 

Uit deze dump is oc^i^ dtlfdei l j k te zlen dat de code totaal 4. sectoren 
van de f 1 oppy ' gebr u i kt , zoais ook uit een opgave van de directory blijkt- 
In dit voor bee Id stond de code bij mlj op track 32 sector 5 tot sector 8. 
Wii *i#n dat de eerw^%^ trf%e van het programma een een 0D <CR> is en dat 
d€r volgende byte de asc i i waarde SB t.w. <?> is* 
lleEe 3B wordt gebruikt ais regel scheider, 

f^i ki^ ntrnmrn^' mmmm^ iF##fi^l %ii#t%t^met zb, ^\ ' [ 

direct achter deze 3B staat het aantai t^ytm'' m timt in d#il# r#i#l im 
weggeschreven in ons geval <02>. 

D# voigende 2 byte«» faw^atten het memory-ad res waar de code weggeschreven 

moet worden. De volgorde is <H> <L>, hier 05 06, t.w« t>506. 

Dan komen de code byte's in ait geval dus 2, na de code byte^'s volgt 

d# €fWiti««wmt tiesta«n#e ilt i §rt§*s. in ons iievitl iiftF. En dat kiopt want 

de hexadecimale som van alle byte's i s 02 05 -1- 06 + 00. 4. m 9JFm 

Vervoigens komt er weer een 0D die weer voor <CR> ^taat. 
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El 5 D ^ 



KEN 



ife wi« 'wmmmm^tm M^§m. m% mr dan tmm mm mo vmm^ nit tmmft mmm 
f#¥#l9eri want ai le f oadpr^f rmo^* « 01 J PfiSit^n mmam nil op zomH nmmr tm 
r#iNi l mch©i der 3B < 5 > . 

in cf# v^lppfNit mmm r#9#i 21 m w# dat #r is byt»»» zijfi i«4|«9Mcftf«v#n mn 

dat het start adres *200 1©. 

0# Checksum is in dit geval S92, wat uiteraard juist is. 

1^=: %^r^pifiii# wBic%#iNm^ mmfmmm^ 01 in i!#rf« 

Op het moment dat er 0 byte's afs amiitmi op il# floppy ma^rWtm gt#r#zmt 
stopt het programma met intezen. 



Ik hoop dat deze u i 1 1 eg meer inzlcht geeft im mm mmtmtm tw# m CiN*» lap 



floppy iNiordt weggeschreveni. 

Men mo#t dit forinat ni#t ni^fit^rim pi 4 

i«forden weggemclir«^fi dat c^m§M SM#flii. 



H#t 

zm f 



FOWfr pro9ir#m«a dat ik voor het dump#fii van dm a#ctor#n twto ii#tjryfift 
ik na de ptiplicatie van- .»o«rx#^i iii^^ 



< 5 > 

i FORTH 

sec 



PI oppy nr : 2 
File name 5 OLOftS D>is 
BEGIN RT TRftCK s= 32 
END AT TRACK « 32 
NUMBER £3F SECTORS 4 
OK 

NAME-OUMP 



SECTOR 
SECTOR 



5 



i»i #t Ptwtmm. 

Voor dew i nd 'HI 
Bmsterdam. 

t#i . msm mtmtrt 



>f:H.:>f: F i oppy dumper 

Fi oppy nr : 2 

File name : OLOP»D>f: 

Output to Printer or Terminal 



< P/T > 



TRACK» 32 SECTORas S 



S00O 


0D 


3B 


02 


05 


06 


00 


02 


00 


OF 


0D 


SO 10 


20 


25 


03 


A2 


00 


20 


AB 


02 


20 


25 


e020 


03 


A2 


13 


20 


AB 


02 


A0 


05 


92 


0D 


8030 


F2 


02 


20 


25 


03 


20 


29 


02 


20 


IF 


8040 


34 


02 


90 


FB 


A2 


34 


05 


SD 


0D 


3B 




m 


20 


17 


# '03> 


C9 


3B 


m 


FS 


A9 


00 


3O60 


20 


2E 


03 


20 


34 


07 


39 


0D 


3B 


IS 


8070 


47 


20 


2E 


03 


20 


34 


03 


85 


12 


20 


TRACK 


= 32 




5ECTOR= 


= 6 








8000 


11 


20 


9A 


02 


05 


6A 


0D 


3B 


18 


02 


mtm 


91 


15 


Dl 


15 


D0 


lA 


20 


34 


03 


08 


8020 


03 


CD 


25 


08 


D8 


0D 


3B 


IS 


02 


7S 


8030 


CD 


24 


05 


D0 


13 


18 


60 


A2 


lA 


20 


8040 




2B 


07 




m' 


SB 


18 


02 


90 


03 


8050 


24 


DO 


ED 


IS 


A5 


1 1 


65 


13 


85 


15 


8060 


60 


08 


IB 


0D 


3B 


18 


02 


A8 


20 


10 






m 


FS 


60 


4F 


46 


46 


m 


45 


54 



20 



0D 


3B 


IS 


02 


00 


DS 


» f •«» r • • * K 


03 


20 


14 


03 


20 


25 


% » • • 4-« • % m 


3B 


18 


02 


18 


13 


20 




03 


20 


25 


03 


SO 


20 




18 


02 


30 


20 


AB 


02 


4. • { "4, . • ; • . 0, 4*. 


8D 


24 


05 


8D 


25 


05 


* . . . I ? Py > . . . 


02 


4-8 


03 


85 


10 


FO 


• • • •4«9«f'« |p>i|^ 


2E 


03 


20 


34 


m 




. H^l. f . m. ;i 'm w • • • 4 • # 


60 


AO 


00 


20 


2E 


03 




C6 


10 


D0 


EF 


20 


2E 


• • Q. P. . 4. HF. Po. . 


05 


DO 


IB 


20 


2E 


0^ 


. M%. X. ? • . X. P. . . . 


AB 


02 


A5 


16 


AS 


IS 


M*. P. . * .4^. %. 


20 


25 


03 


38 


60 


A2 


.4.. n. 1 . . . . . %.s* " 


AS 


12 


65 


14 


85 


16 


*Pm.f;,#. » p « . 


03 


BD 


B4 


02 


E© 


C9 


*«««l»»<««. =s4 .hi 


20 


4C 


4F 


41 


44 




5 PU* OFFSET. LOADE 



PeFS 5 D ^ KENNEI 





5s 32 




5ECT0R= 7 




















.Q. ; . .9R. V1.0;OF 


mm 




ux 


0D 




18 3^ 




^0 


m 




m 




m 


4r 


46 


8010 


46 


53 


4D 


54 


3B 4D 45 






»♦ w 




49 


4C 


20 


3B 


06 


F5ET5 MEM-FAIL. 5. 


S020 


Pi 


0D 


3B 


ifi 


0^ D5 43 


48 


45 


43 


4B 


53 


55 


40 


2© 


45 


q. ? . . XCHECKSUM.e 




S2 


52 


4r 


52 


m m m 


tA 


20 


45 


4E 


44 


20 


2A 


06 


OF 


iiftCIR. 5 • ENO . >i^: . _ 


S04.0 


0D 


3B 


18 


02 


F0 2R 3B 


9S 


48 


20 


31 


03 


68 


AB 


AD 


24 




8050 


05 


D0 


00 


RD 


22 05 99 


00 


00 


ftD 


23 


05 


99 


08 


41 


00 






m 


m 


03 


03 


m 


A9 


00 


99 


00 


00 


99 


01 


00 


60 




3070 


SO: 


m 


E0 


6C 


m m 


20 


SO 


08 


£0 


6C 


07 


E9 


0O 


3B 


1 . * 1 . * ) . I . * 1 • 1 . ; 


TRACK 


» 32 


























8000 


17 


03 


20 


0Pi 


E0 6C 24 


E0 


6C 


0E 


EO 


6C 


14 


E0 


6C 


26 


. . . . M 1^ M • * 1 . M Ir 


8010 


E0 


8C# 


22 


E0 


6C 48 £0 


6C 


2C 


E0 


0B 


3A 


00 


3B 


00 


00 


' 1 " 1 H 1 , • S • ? • • 


mmM 


0P 


00 


0F 








'00 


00 


00 


00 


00 


00 


00 


00 


m m m m m 0* m ••••••• " 


8030 


00 


0O 


00 


00 


00 0O 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 




8040 


00 


00 


00 


00 


00 00 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 




e0fs^0 


00 


00 


00 


00 


m m 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 




8060 


00 


00 


00 


00 


00 00 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 




8070 


00 


00 


00 


00 


00 00 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 





OK 
PASS 2 

mm OLOAD-UtlLXTV »#«» 



0001 


0000 






.TITLE ^ #«*» OLOAO-UTILITY 




0002 


0000 


■ 

7 


FILE = 


OLOADl <<<< FOR jrUMIOR/KIM 


>>>> 




0000 


ti 
f 


DO: 27 


-11 --82 m ^ . 






0000 


• 








mam 


0000 


• 

7 


:4: >f : 5f: >f : :+: >f. >f : >f : 4 : >f : >f: * * >f : >f : >f : >f : >»! Jfr: >f : >f : »*: >f : 




00'SIII^'' 


0000 


• 


;f : »f: >fr: >fr: 4: >f: >f : J*: >f : >f : >»5 * >f : *i *i *i 4: >>'. 




0007 


0000 


• 

1 


>!•:#: 4: 






O00S 


0000 


m 

7 




SHOW THE CODE-LAY-OUT ^^*im 




0009 


0900 


«t 
1 




AND LOAD WITH OFFSET. ^i^i^tm 




0010 


0000 


5 








001 1 


0000 


« 


:4: Jf : Jf : »ft*t*: «H>H * * f J >*« >f5 >f ^ >f : - >f : 4= *f - ^' 




0012 


0000 




)f : ^ 4>3 s|»i|: iH)|« >H >H )f : : 9|« »f : at« 4^ 3f '• )f : ^' 4: >f : ^i^'-^' 4: 




001 3 


0000 


» 








0014 


0000 


f 


### MONITOR LINK ##§ 




0015 


0000 


? 








0016 


0000 


CNTR 


«»#Qfl00 




0017 


0000 


HONRAM 


»«0000 




0018 


0000 


1 








0019 


0000 


A&DR 


»M0NRAM4-34 




0020 


0000 


CKSttM 


«M0MRAM#36 




0021 


0000 


• 

1 








0022 


0000 






^»MOMRA«4.6 




0O23 


0506 0002 






.WOR OLOAO 




0024 


0508 


1 








0025 


0808 


m 
J 








0026 


0508 






*=^10 




0027 


0010 


• 


VARIABLES #** 




0028 


0010 


1 








0029 


0010 


LENGTH 


*=:>f:4.1 ; LENGTH OF 


INPUT-LINE 


0030 


0011 


ADORES 


>l«w*:+2 , 1 ftOORES OF 


LINE 


0031 


0013 


OFFSET 


.♦««:«H4-2 1 OFFSET ON 


THE ADORES 


0032 


0015 


MEMPTR 


4: = 4:4^2 1 POINTER TO 


THE MEMORY 


0033 


0017 


YSAVe 


i»:s4:4-l 


1 



21 



2^Ei 5 D KEIMiaER 





0018 




1 










0018 




1 










0018 












0037 


0018 












0038 


0200 












0079 


0200 




; «tt HA IN PPOGf^AM &OPV 


*# 




0040 


0200 




f 








0041 


0200 


D8 . 










0042 


0201 


2028^0$ 


J5R 


CRLF 






0043 


0204 


A200 


LDX 


#TID 


; 


♦•OFP'SCT-LClfAOeR VX . X " 


0044 


0206 


20a302 


J5R 


PRINT 






0045 


0209 


20£803 


J5R 


CRLF 






0046 


020C 


201 403 


J5R 


WHERE! 


% 


INPUT-DEVICE ^\ 


0047 


020F 


202503 


JSR 


CRLF 






0048 


0212 


R213 


LDX 


#TOFFST 






0049 


0214 


20AB02 


J5R 


PRINT 






0050 


0217 


A013 


LDY 


#0FF5ET 






0051 


0219 


20F202 


JSR 


GET REG 






0052 


021C 


202803 




CRLF 






©053 


02 IF 




• 








0054 


021F 


202902 


J5R 


OLOADl 


• 


LOAD THE FILE 








JSR 


cLOsei 




CLOSE THE INPUTFILE 


0056 


©225 


202809 


JSR 


CRLF 






0057 


0228 


60 


RTS 








wnm 






• 








0059 


0229 




• 








0060 


0229 




5 ## OLOAD-ROUTINE ## 






mm^ 






5 








0062 


0229 


203402 


OLOADl JSR 


RADDR 


■ 


REAP LINE, ADDRCS & LeNeTH 


0063 


022C 


90FB 


BCC 


OLOADl 




:+:EOF»f: ? * 


0064 


wmm 


A234 


LDX 


#TEND 






0065 


0230 


20A1I02 


JSR 


PRINT 






0066 


0233 


60 


RTS 








wmmf 


'0^''^4 












0068 


©234 




• 








0069 


0234 




? ## READ LINE, ADDRES 


& LENGTH ## 








• 








0071 


0234 


201703 


RADOR JSR 


IN ALL 


\ 


SCAN TILL 


0072 


0237 


C93B 


CMP 


#' 5 










00rd 




RADDR 






0O74 


023B 


A900 


LDA 


#0 




CLCAR THE CHECKSyM 


0075 


023D 


8D2405 


ST A 


CKSUM 








mmm 




mm 


CKSUM4'i 






0077 


0243 


202E03 


JSR 


RBYTE 


\ 


LENGTH 


0078 


0246 


203403 


JSR 


CHEKA 








mmm 


mmm 


3TA 








0060 


024B 




BEQ 


RADDR9 




tHEOF*s 


0061 


024D 


202E03 


JSR 


RBYTE 






#08£' 






Jl» 


wmm 






0083 


0253 


8512 


STA 


ADDRES+l 






0084 


0255 


202E03 


JSR 


RBYTE 










'^P03403 


JSR 


CHEKA 






0086 


02SB 


8511 


STA 


ADDRES 






0087 


025D 


209A02 


JSR 


CALOFF 


• 


CALCULATE OFFSET 




imm 


Hind 


LDY 


*0 






0089 


0262 




? NOW READ THE LINE 






0090 


0262 


202C03 


RADDRl JSR 


RBYTE 






mmt 




mm 








rtlE BYTE 


mm 


0267 






CMCMPTRJY 




AND CHECK FOR RUM 



2i2 



6 5 □ 5 





. .1 HI ' i 








0093 


0269 


D01 A 




BNE MERR 


0094 


026B 


203403 




J5R CHEKA 










tm • 


009B 


026F 


C610 




DEC LENGTH 


0097 


0271 


D0EF 




BNE RADDRl 




mtfm 






J5R RBYTE 


0099 


0276 


CD250S 




CMP CK5UM+1 


0100 


0279 


D01B 




BNE CKERR 


mtm 


^tmfm 


202603 






0102 


027E 


CD2405 




CMP CK5UM 


0103 


0281 


D013 




BNE CKERR 


m%m 


mm 


16 




£|Li|: 


0105 


02S4 


60 




RT5 


0106 


0285 




? 




0107 


m^ws 


A21A 




Um itHERR 


0108 


0287 


20ABO2 


mmm 


J5R PRINT 


0109 


028f^ 


A516 




LDA MEMPTR+1 


0110 


028C 


A61S 






0111 


02SE 


202B03 




JSR WRAX 


©112 


0291 


202503 




JSR CRLF 


01 13 


0294 




m 

7 






0294 


3© 


RADDR9 


SEC 


01 15 


0295 


60 




RT5 


01 16 


0296 




• 




«I117 


0296 


A224 


CKCRR 


LDX #TCKERR 


011B 


0298 


00EO 




BNE ERROR 


01 19 


029A 








0120 


029A 








0121 






- ### CALCULATE HEMPTR 


0122 


029A 








0123 


©29A 


18 


CALOFF 


CLC 


0124 


©29B 


A511 




LDA ADDRES 


0125 


029D 


6513 




ADC OFFSET 


0125 


029F 


8515 




5TA MEHPTR 


0127 


02A1 


A512 




LOA ADDRE^+1 


0128 


02ft3 


6514 




AOC OFiF*ih^4ti 


mim 


02R5 


8516 




5TA MEMPtii^t 


0130 


02A7 


60 




RTS 


0131 


02AS 




1 


0132 


02ft8 




1 




0133 


02A8 




? 




0134 


02A8 




5 ## PRINT STRING, IND 


0135 


02A8 




? 




0136 


02A8 


201C03 


PRNTl 


JSR OUTALL 


0137 


02AB 


BDB402 


PRINT 


LDA TXT, X 


SllPi 


mmm 


m 




INX 


0139 


02AF 


C93B 




CMP #» 5 


0140 


02B1 


D0F5 




BNE PRNTl 


0141 


02B3 


60 




RTS 


0142 


02B4 




1 




0143 


02B4 




1 




0144 


02B4 




1 ft* TCXT-TABLE «« 


©14.5 


02B4 




\ 




©146 


02B4 




TXT 


sttjf: 


0147 


02B4 




1 




0148 


02B4 




TID 


«>f:-TXT 


0149 


02B4 


4F46 




. BYT » OFFSET 


aiee 


0207 




TorrsT 


■siM-'TXT 



? ADD TO CHECKSUM 



INDEX BY .X #» 



— Ei 5 D iS 



KEIMMEIR 



0151 


02C7 


4#'46 




.BVT ' OFFSET f» 


0152 


02CE 




TMERR 


w*-TXT 




02C6: 


4B45 




•SVT »WEM-FAIL 




02D8. 




TCKERR 


»>f:-.TXT 


#i6S 


02D8 


4348 




.BVT 'CHECKSUM ERROR ?' 




mmm 




rmm 


KiH-TXT 


0157 


02E8 






• BYT ^ >i«9N .MMO m&'i ^ 


0158 


02F2 










m 


tmrmm 




0160 


02 F 3 


43 




PHA 


0161 


02F4 


203103 




J5R ADD IN 1 OET 


Hist:. 


mm^ 


'Hid' 




f>LA 


0163 


02FS 


AS 




TAV 


0164 


02F9 


AD2405 




LDA CKSUM 


mmm 


02:FC 


mmn 




mm oEFLt 


0166 


02FE 


AD2205 




LDA ADDR 


0167 


0301 


990000 




STA 0, Y 




wmm' 






LDA ADDR4^i 


©169 


0307 


990100 




STA 1 - V 


0170 


0301^ 


50 




RTS 


#171 






i 




0172 


030B 


A900 


DEFLT 


LDA #0 


0173 


030D 


990000 




STA 0, V 


11174 




is@i00 




STft 1, V 


01 75 


031 3 


50 




RTS 


0176 


0314 








#iw 


imtm 




• 




01 7S 


0314. 




• 




0179 


0314 




: #### 


MONITOR ENTRIES ^ttttifc 




#Si4 




• 


01S1 


0314 


6C02E0 


WHEREI 


JMP <ENTP4-2) 


0182 


031 7 


6C06E0 


IN ALL 


JMP <ENTR4-6) 


mim^ 


mmn 




»L^#C 


LDA #1^20 


0184 


03 IC 


5C08E0 


OUTALL 


JMP <*ENTP+S) 


0185 


031F 


SCI0AE0 


CLOSE I 


JMP <ENTR4*10> 














0325 


6C0EE0 


CRLF 


JMP <ENTP4-14> 




0328 


6C14E0 


RCHEK 


JMP <ENTR4*20I 


mim 






JMP <CNTW+S8) 


0190 


032E 


6C22E0 


RBVTE 


JMP <ENTR+34.) 


0191 


0331 


6Q48E0 


ADD IN 


JMP <e:ntr+7£> . 




mm* 






JMP cepnrR+44> 


0193 


0337 








0194 


0337 




? 




mim 


03S>37 









wmmm% •mmm 



<00e0> 
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2-B 5 O «^ KEiMNEIR 
AANPASSING 0S-6SD V3.3 PRINT&IX,YJ COMMANDO 

SSSSSSSSSStfS&SS'SSBSBSSSSSSS^ 

De hieronder beschreven aanpassing is bestemd voor de bezitters van een 
Jmmt computer ilM IMMiliii^ im<«l»af>t m Iwt OHIO SQUmwtC 
08-65S V3.3 disk operatins apiM.^ 

De toii mummim syetem b«K»i«end» BASIC vensie fCsz nine Sf«i¥ 

BASIC) kent een aantal zogenaamde CURSOR CONTROL commando's die in vef- 
band met de afwijkende hardware niet werken bij de JUNIOR computer^ 
Een van cli* eammmifm is het PRiNTftf X,YI commando waarnlit m felMnillcer 
in staat wordt gesteld om de cursor op het beeldscherm te vei#MidfesMRi 
near de koordinaten zoals opgegeven in de X en Y variabelen. 
Met behulp iMi fiiiderst«and» « anpasiiMi Him Hit comnraniio ook voor de 
bezitters van bovii iai i iimpr » '^ffPGil«IMfi|Hi«tie opsrattdkiw% mmm • 
worden. 

De maximale waarden van X en Y Chiervoor mogen uiteraard ook andere 
variabelenaraen gebruikt worden) worden bepaald door het op het moment van 

Bii sen biMlite^iefHitfjBniiiig^ 80 posities 24 regels zijn 
de maximale waarden van X en Y respektievelijk 79 en 23. 
Overschrijding van deze waarden veroorzaakt een "SYNTAX ERROR". 



0«1« 

0020 
0030 

mm 

0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0230 
OlAO 
0150 



;)fKM PRINT&(X,Y) COMMANDO OSI NINE DIGIT BASIC KKX 

l**^ JAN VAN HEUVEH nnrt 

RUNSTRAAT 2 mfx 
fxm EINDHOVEN mm 

JMKKKKKKKXIIKKKKKKKKXKifKKNXKKXIfKlfKlfXIiNKMKitllKKlfliKKliNifKKlf 
i VIDEO ROUTINES ELEKTtAm 



0170 
0180 
0190 
0200 
0210 



ei^NDN 
ADJCUR 
COMCOC 

} BAsie i«)inrxNE8 



.BE fPOFO 
.DE $F16D 
.DE #F39C 



0230 
0240 
9280 
0260 
0270 

%A8- lA 0280 

36A9- EA 0290 
36AA- 40 B5 25 0300 



CHCKLPAR 
EVALEXP 

SNERROR 

BASIC 

I 

i 



.BE fooeo 

.DE tOElO 
.DE ^1618 

.Bl foe9B 

.DE $0E1E 
.DE #36C8 

.BA «36A8 

NOP 

NOP 

JHP EXT 



) verhoog eartot* vtartadres 
; positioneer cursor 
) reset escape funktia 



I heal mste cttaraetif« «w 
i test op "(" 
} evalueer expressif 
f twrt op ••)" 

i print "SYNTAX ERROR" 

) vervold PRINT commando 



» vervolg PRZNTft(XfY) 



25 



5 D KEN^4ER 











0310 


; 


















0320 




•BA $25B5 














0330 


I 










25B5- 


20 


9C 


F3 


03A0 


EXT 


JSR 


COMCOC 


• 


reset escape funktie 


25B8- 


20 


CO 


00 


0350 




JSR 


CHRGET 




haal volgende BASIC char, op 




it 


10 


Olr 


mm 




JSR 


CHCKLPAR 




indien <> dan SN ERROR 


25BE- 


20 


18 


16 


0370 




JSR 


EVALEXP 


• 


haal waarde op in X-register 


25C1- 


EC 


DO 


EF 


0380 




CPX 


$EFDO 


• 


indien > max* aantal toege- 




BO 


30 




0390 




BCS 


ERROR 




9tmm Wm. dan SM^raiBR 


25C6- 


8E 


00 


01 


0400 




STX 


$0100 


; 


bewaar X-register 


25C9- 


C9 


2C 




OAIO 




CMP 




• 


indien volgende basic char. 




00 


35 




0420 




BNE 


ERROR 


; 


<> dan SN ERROR 


25CD- 


20 


CO 


00 


0430 




JSR 


CHRGET 


• 


haal volgende BASIC char* op 


25D0- 


20 


18 


16 


0440 




JSR 


EVALEXP 


• 


haal waarde op in X-register 




m m 


0450 








'^mi^m^mm^ -wmntBl toege- 


25D6- 


BO 


2A 




0460 




BCS 


ERROR 


• 


stane reg* dan SN ERROR 


25D8- 


8E 


01 


01 


0470 




STX 


$0101 




bewaar X-register 




20 


1^ 


m 


0«I0 




JSR 


CHCKRPAR 


• 


volgende €lmr« mtit ""l^ lijli 


25DE- 


AE 


00 


01 


0490 




LDX 


$0100 


; 


haal X-register weer op 


25E1- 


8E 


CB 


EF 


0500 




STX 


$EFCB 


; 


zet dit in positie teller 


25E4- 


AE 


CO 


EF 


0510 




LDX 


$EFC0 


1 


maak cursor start adres 


25E7- 


8E 


C2 


EF 


0520 




STX 


$EFC2 


1 


gelijk aan VIDEO start adres 


25EA- 


AE 


CI 


EF 


0530 




LDX 


$EFC1 






25&&- 


8E 


C3 


EF 


0540 




STX 


$EFC3 






25F0- 


AE 


01 


01 


0550 




LDX 


$0101 


• 


haal X-register weer op 


25F3- 


8E 


CA 


EF 


0560 




STX 


$EFCA 


• 

9 


en zet dit in de regelteller 




m FO 


FO 


0S9t REPEAT 


mi 


eiNON 


} l^trhoog cursor start adres 


25F9- 


CA 






0580 




am 




1 


X^fmial het aantal regels 


2SFA- 


DO 


FA 




0590 




tm 


IPPEAT 








m 










1 


pM^yy^Hiear cursor^ 


2SFP- 




C8 


36 


0610 




JNP 


BASIC 


\ 


en vervolg PRINT eammande 










0620 












2602- 


4®'' 


IE 


OE 


0630 


ERROR 


JNP SNERROR 


y 


"SYNTAX IRROI^ exit 



WAARSCHUWING: 



D# nleuwe eerie CBrHBA immwf mm^lm mm^m 19B4 heeft van binnen enise wiJ- 
zisinsen ondersaan. Hierdoor kan de bekende OPSTEEKRESETSCHAKELftftR die in 
de seriele bus wordt sestoken NIET meer worden eebruikt !!! 

Dov^ y €ii%>wl <fiet hopel iiK floe mm^iMk iW*eiird ) dan kan bli een reset de 
computer defekt raken. Het aanbrensen van een resetschakei aar die op de 
USERSPQDRT wordt aaneesioten (pen 3 en massa kortstondle aan etkaar ) wefirt 
we I eoed en U wordt aane#rad«^ voor deze opi osm tne t# iii l#zen. 

PtOTTERPENNEN. 

Bent U in het bez i t van een Plotter b. v. deze op de SHARP MZ700 of de 1520 
van COMIiODORE dan bliJkt dat de pi otterpennen moeili^k verkr i i»ebaar zivn. 
Radio Shack oftewel TAI^ ^liWeft m^%^^^iimTU''mWmmM'''4^mmifdm ^mrmmm in 
e#i»ruilc« 0# kataioeusnuimkiere ziJiii 

26-14B0 dri* zwarte f»pnnen of 

26-1481 voor 1 rod#f 1 eroene mx% 1 bl«yw# 

flet lietanerliKete is •leeniiJK het pr i Jsverschi U Vcwr teen mm% vsn #^%ttn-- 
nen van COMMODORE betaalt U Fl. 25100 De Penn#n bli TAI^Y kosten Ft. ef90 
per set van 3 stuks. 
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INLEZDING. 

DATBAS is een bestands-programma voor de JUNZOR-computer in kombinatie 
wmt 0t6SDV3.3 m Elektuur VSU-kaart* 

Het progranmia stelt de gebruiker in staat om zelf bestanden te definisranF 
records toe te voegen» te wiizigent te wissen en te printen. 
Hiertue worclt gebruik gMnekt van rendoM aeeeee lUiM^^lJis* 

PROGRAMMABESCHRZJVZNG. 



De opbouw van het pro^ramma is modulair» d.w^z. voor eike funktie bestaat 
een zelfstandige routine hetgeen mm^mii^wi uitbreiding van het 
programma sterk vereenvoudigd. 

De regels 1-500 omvatten de hoofdroutine van waaruit de diverse opdrachten 
gegeven kunnen worden. 

Na het opstarten van het prograirana verschijnt het DATBAS-logo en de vraag 
of men een nieuw bestand wil aanmaken of een bestaand bestand wil inlezen. 
Zndien men voor de eerste mogelijkheid kiest (aanmaken nieuw bestand) 
moeten vooraf (i.v.m. de beperkingen van 1IM8S VS^Jl datafiles gekrmerd 
worden, dus buiten het programma om. 

Voor elk aan te nrnkm bestwid diwnen 2 datafiles op de dlakette gskreeerd 
te worden# t.w. : 

1) Het hoofdbestand waarin de records zullen worden opgeslagen. 

2) Een hulpbestand waarin DATBAS enige bestandsadministratie 
bijhoudtf zoals aantal reeords# ai^sl veldehf lengte der 
velden. 

Voor dit bestand hoeft slechts 1 track gsi^HMinrssrd te 
worden. 

De naam van het hoofbestand mag men zelf bepalen maar de maximale lengte is 
beperkt tot 5 tekens. 

De naam van hulpbestand 1 heeft dezelfde naam als het hoofdbestand met als 
tseviNising ds letter 'H*. 

Nadat men deze files gekreeerd heeft kan men het bestand gaan definieren. 
Deze bestandsdefinitie is vrij simpel en wordt derhalve hier niet bespro- 
kanv 

Een overzicht van ds blnnsn SATBAS nogsliike opdrachten wordt hleronder 
gegeven. 

BEWAAR 



Legt de gevens van een bestand vast op diskette. 

Deze opdracht hoeft bij normaal gebruik nooit gegeven te worden omdat alS 
men DATBAS "netjes" beeindigd, alle gegevens op diskette zijn of worden 
geschreven. Zndien men echter een bestand initieel aan het vullen is, is 
het raadzaam om tussentijds de ingetoetste gegevens te bewaren. Dit voor- 
kofflt vssl dubbsl wsrk indisn hst jf^stsm onverhoopt mocht **hangen**. 



^ PRZNT 



Printen van records uit een bestand. 

Deze opdracht wordt altijd gevolgd door de vraag "F)ormaat G)een formaat". 
Voor de uitleg over het formaat printen wordt verwezen naar het betreffends 
hoofdstuk. Zndien men voor "G)een formaat" kiest » volgt de vraag "T)otaal 
overzi^ llisi^rd siw^2ti£ht^. 

T)otaal overzicht houdt in dat men zelf aangeeft welke velden (en in walks 
volgorde) van de geselekteerde records afgedrukt zullen worden. 
Deze velden worden dan in 1 printregel afgedrukt. 
Per nieuwe pagina worden de regels voorafgegaan door 3 kopregels. 

R)ecord overzicht houdt in dat alle velden van de geselekteerde records af- 
gsdrukt wordsn volgsns sen dsfsult formaat « 

Vervolgens volgt de vraag "S)cherm P)rinter". 0/ 
Zndien men voor "P)rinter" kiest moeten de regellengte en het aantal regels ^ ' 
per pasina opgsgsvsn wordsn. 
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KEIMMER 



De printroutine loopt vervolgens via de selektie-poutine waarbij men de 
moaelljkheid heeft om maxlmaal 8 S8lektiekrlterla op ta gavan waaraan da ta 
printen records moeten voldoen. 
De selektiemogelljkheden zijn: 

1) Recordnummer 

2) Veldnumnar 

3) Begin 

Nadat de selektiekriteria zijn opgagavan (of niet natuurlijk) kan nan hat 
printan startan nat »*Ba0iii"'« 

M.b.t^ het opgeven van de selektiekriteria is het volgende nog van belang. 
Stel men heeft een bestand gedefiniaerd (en gavuld) waarin hat veld NAAN 
voorkomt. Indien men nu alle namen it42^ Wl^ktaran dia mat da lattar "H'* 
beginnen, kan men opgeven "H»*\ « ^ 

Ook is het mogelijk om meerdere letters op te gevan# bldvoorbaeld **HEW* 
zal alle naman salakteren die mat "HEU" beginnen« 

TOEVOEGEN 



Voegt records toe aan een bestand. 

De in te vullen velden imrclatt iqt ^^1^ seharm waargagaven an kunnen vervol- 
gens ingevuld warden* 

■ ' • • • ■ • ^- > • 

VERANDER 



Veranderen van record(s) in het bestand. 

Ook deze opdracht loopt via de selektie-routine (zie PRINT-opdracht ). 
Nadat het te wijzigen record is gevondent bevindt de cursor zich achtar hat 
eerste veld van het recoril« 
Nu kan man kiezen voor: 

1 = aanpassen inhoud veld. 

2 = niet aanpassen inhoud veldt dus door naar het volgende 

veld. 

^ 3 = naar einde record. : j 

WISSEN 

Wissen van record(s) in het bestand. 

Ook daze opdracht loopt wear via da selektie-routine (zia PRINT-opdracht). 
Nadat het te wissen record is gevonden heeft men da mogilljkhald om hat 
record te laten vervallen (of niet natuurlijk). 

N.B. 

De gewiste records laten uiteraard lege plaatsen achter op de diskette. 
Deze lege plaatsen warden echter "geregistreerd" door het programme ^ zodat 
toe te voegen records in eerste instantie op plaatsen van gewiste records 
terecht komen. Dit leidt tot een zo afficient mogelijk gebruik van da be- 
schikbara disk-ruimte. 

SORTEER 



Sorteert records in het bestand. 

Sortering vindt plaats op basis van op te gavan vald» an kan in toaimAanila 
of afnemende volgorde plaatsvinden. 

NIEUW 

Sluit het gebruikte bestand en geeft de gebruiker de mogelijkheid om met 
een andar bestand verdar te gaan of om aan niauu bestand te def iniei»en» 

mm 

ssssa . 

Sluit het gebruikte bestand en Mieilitfiit DATBAS. 
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FORMAAT PRINTEN. 

Indien men na de print-opdracht kiest voor "F)ormaat" vraagt het prograiwna 
of een formaat aangemaakt dient te worden of dat een op diskette opgeslaaen 
formaat gebruikt dient te worden. *«8en 

In het laatste geval zullen de te printen records dus in dat formaat iia- 
prmt worden* ^ 
Het aanmaken van een formaat verloopt als volgt: 



Hen kan kiezen uit: 



il Valdnaan 
21 Valdinheiici 
31 Spatiia 



:de naam van een veld zal gmm^ mmlm 

(de titel als het ware). 
: de intoud van ean vald zal gaprint mt^ 

den. 

:een op te gevan aantal spatiaa za|.i»« 
print worden. 

4) HiMum miBl :een op te gevan aantal ragala 

print worden. 

5) Tekst :op te geven tekst zal geprint worden. 

6) Einda :beeindigen formaatdafinitie# formaat 

Mordt wsSMcdii^vm naar diakatta« 



Voorbeeld van het gebruik: 

Bestand met 3 velden: NAAH, ADRES en WOONPLAATS. 
Gawmat farmtat zijn hlmko ragala): 



> 
> 



> 
> 



Naam 
Adres 

Woonplaata 
Takat. 



Men definieert dit formaat als volgt: 



Keuze: 



V,I,S,N,T,E 

Hoeveel ? 

V,I,S,N,T,E 

Hoeveel ? 

V,I,S,N,T,E 

Veldnummer ? 

V,I,S,N,T,E 

Hoeveel ? 

V,I,S,N,T,E 

Hoeveel ? 

V,I,S,N,T,E 

Veldnummer ? 

V,I,S,N,T,E 

Hoeveel ? 

V,I,S,N,T,E 

Hoeveel ? 

V,I,S,N,T^E 

Veldnummer ? 

V,I,S,N,T,E 

Hoeveel ? 

V,I,S.N,T,E 

Hoeveel ? 

V,I,S,N,T,E 
Nu kan 
Na een 



de 



Toets in: 


Verklaring: 


N 


Nieuwe regel 


3 


2 blanko ragala 


S 


Spaties 


3 


3 spaties 


Z 


inhoud van een veld 


1 


veldnr. van vald NAAH 


N 


Nieuwe regel 


1 
S 


vervolg op niainia ragal 

Spaties 


3 


3 spaties 


I 


inhoud van een veld 


2 


veldnr. van vmM -mmm 


N 


Nieuwe regel ■ 


2 


1 blanko ri^l ^ 


i 


Spaties 


3 


3 spaties 


z 


inhoud van een veld 


3 


veldnr. van veld liOONPLAATS 


N 


Nieuwe regel 


3 


2 blanko ragala 


® 


Spaties 


3 


3 spaties 


T 


Tekst opgeven 



opgegeven worden. 



carriage return keert meaterug near de keuzemogelijkhedan^ 
Beeindigen van de formaatdefinitie gaat door middel van keuze "E". 

Veryolgens kan men het aangemaakte formaat op diskette bewaran ondar aan 
vrij te kiezen naam. Wei dient men er uiteraard voor te zorgiM filt 
bestandsnaam reeds vooraf gekreeert en gainitialiseart ia# 
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: REM*** JUNIOR DATABASE MANAGEMENT SYSTEEM ***** 

2 REM*** DOOR J.V.HEUVEN. EINDHOVEN AUGUSTUS 1984**** 

I PCME2888 , 0 : P0KE8722 . 0 : P0KE2797 . 32 : SOTO 1 00 
5 PRINT! (49) : : RETURN 

7 PRINTS^ (0.4) ! (52)3 ! RETURN 

10 IFRLy.<9THENPl=3: P2=255: GOTOIS 

II IFRL7.<17THENP1=4:P2=128:G0T016 

12 IPRLt.<S3TKE!<ff>l«s5s P2=.i>4 : GOTOl 6 

1 3 I FRL"'.< 65THENP 1 =6 : P2=32 : GOTO 1 6 

1 4 I FRL7.< 1 29THENP 1 =7 ! P2= 1 6 : GOTO 1 6 

15 Pl«8sPe*8 

16 RETURN 

20 PR I NTS< ( X , 0 ) ! ( 56 ) : : I NPUT A* : A*=LEFT* ( A* , 1 ) s SR* I . 
2g rm#«MID*(D*,SR, DTHENZS 
24 3R=SR+ 1 s IFSR >L1N (D*) THEN2e 
26 60T022 
28 RETURN 

30 PRINT?-: (0, 0) "Let. od ' ' ' het gewenste overs icht oast niet ap 

32 PRINT"de printregel. Toets return, "s : INPUT D*: PRINTSi (O.S) s s RETURN 

m wm j»o TO m 

36 PR I NTS; ( 20 . J -+ 5 > " < " ; J* 1 s " ) " s Ht ( J ) 
38 NEXT: RETURN 

100 DISKV'GO f33^«5D18K!«CALL D0A0=08.1" 
105 DIMCt(7> .Cl%(7) .02% (7) .Ft (5) : CH=0 

110 PRINT?<(0, 0) "Kies: A)anmaken bestand Dnleseo bestand SJtoooen 

120 X»«S'Sr!3*«*'Al^'* :' i'eiSUB20 

130 IFSR=3THENEND 

140 QNSRG0SUB1500. 1000 

Wmmmm7rmtmi<{0.0j*mhy''m«msmmmaar P>rint T)c.evoeaBn 
210 PRINT"V) erander W)iE S)ort«er N)ieuw E) l«i»*« 
220 X=75sD*="BPTVWSNE"!G0SUB2O 

320 IP m>m»Emoo 

330 0NSRG0SUB2000- 3000, 4000,350, 360. 700<:): G0TD200 ■ 

350 SB=3: G0T08000 

360 ^»i4: FS»1 : SOTO0OOO 

500 IFSS=1THEN530 

520 60SUB2000 

5^0 Dim CLOSE, 6 

540 IFSRa7THENCLEAR!eOSUB5! GOTO 105 
550 END 

tmm ¥^im%(m,m rim'f^mcMm 'v&h het bestand ■■::INpnTr* 
1005 F*=LEFTf (Ff-.5> : A$=F* 

1010 TRAP1230sDISK OPEN, 6, F*+"H" : INPUT#6. NH. NX . MX. LK.RLX 

i#So -©osyBio 

1130 DIMH*(NH) .Ly.(NH) , I * (MX ) , PV. ( MX ) . TI* (NH> . KR ( (NH+l^flO) 

1 140 FOR J =OTONH : I NPUT#6 . H* ( I ) . L7. ( I ) : NEXT 

1160 lPN I=- lTHENlf^ 

1170 FOR I =0T0N I : INPUT#6. P% { I ) : NEXT 

1180 DISK CLOSE. 6 

rtiS IP%II--1THEN1220 

1190 DISK 0PEN.6jF«iP0KE12076.Pl:P0KE12042.f^2 
1210 GOSUB1300 

1215 6OSUB5:PRINT?<(0, 1) ; !F0RX=1T080:PRINTCHR*(129) : : NEXT: PRINT 
1217 SS=1:TRAP0:G0SUB 1220: GOTO 1225 

1220 PRINT?< (0, 2) "Bestandnaam : " : F*: " , " ; NI + 1 s " records" 
1^23 PRINT8t<67,2) :NH+1: " Vel den ": RETURN 

1225 PRlNT«<<0,3Xj !F0RX«1T080!PRINTCHR*(135) s : NEXT s PRINT: RETURN 
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•Sf E S D iS ke:immer ' 

1 230 PR rNT?< fO , 1 J » ( 56 ) : PR I NT«< ( 0 , 0 ) ! ( 56 ) " Best an d " : A* ; 

1236 PRINT" niet gevonden ! Toets <RETURN> " : : IMPUTA*: TRAPO; GOTOl t# 
1300 FORI=OTONI : DISK GET, P"/. < I ) s FORX=OTOCH! INPUT#6. I* < I ) : NeXTsJiCXT 

DISK CLCl^^^fRl'WJRN 
1500 PRINT?<<0,0) ! (56) "Naam van het nieuwe be»tand ? " 
1 507 PR I NT& ( 33 . 0 ) : : I NPUTF* : I FF*= " " THEN 1507 

iSlO F»»L©n'*(P»,5) ' . " . , 

1512 TRAP1230: A*=F*!GOSUB 1662: A*=F*+"H ••.•50SUB1 6628 TRAPO 

1525 PRINTS'. (0. 0) ! (56) "Hoeve©], velden " 

|«^ mtHm(20,0) : :INfWft*sNH«VAL(A«) : IFNH< 1THEN1'=;27 

1540 NH=NH-1:NI=-1:LK=-1 

1545 DIMH*(NH) . L'/. (NH) . TI* (NH) 

1550 G0SUB5: PRINTS* 1 ) ? trORX-lTCSKJs PRINTCHR* ( 129) : ! NEXTiPHINT 

1560 PRINT?.: (0. 2) "Bestandnaam : " i F«: : PRINT?< (69. 2> : NH+1 : " Velden" 
1564 PRINT?-: (0,3) : s F0RX = 1T0S0: PRINTCHR* ( 135) ? : NEXT: PRINT 

1566 PRINT?<(0,4) "VELDNR. " s .• PRINT?* (9, 4> "VELDNAAM": : PRINTS? (60, 4) ••LEWetE" 

1 570 RT=0 : FOR I =OTONH : I FRT > 1 5THENRT=0 : PR I NT?: ( 0 . 5 ) ' ( 52 ) 

15S0 RT=RT+l!pRINT?<(3,RT+5) I + i : PRINT8< (7. RT+5) : : INPUTH*(I) 

1585 PRINTS* f 6 1,RT*5> : : INPUTA«:L5!: (t) «lNtWAL<ft*|t H 1FL% (rHlTHEN1585 

1595 RL%=RL'/.+L!/. (I)+1:NEXT:G0SUB10 

1620 PRINT?. (0,0) ! (56) "Wei k veldnummer is het langste " } 
1623 PRINT"waarop je wil mcxrtmrmm *? " 

1625 PRINT?.(57,0) ! (56) : : INPUTA*: J=VAL (At) : s rFJ<00RJ>NHTH6:N162S 

1630 J=L7. ( J ) : MX=INT ( (PRE (0) -2000) / ( J+2) > 
1 640 D I M I « ( MX ) . P% (MX > 
1660 SS=0: RETURN 

1662 DISK OPEN. 6. A*: DISK CLOSE, 6: RETURN 
1700 R=P7. (I) 

1710 IFREPEAT=1THEN1715 

1712 DISK OPEN. 6. F*: POKE 12076. PI : POKE 12042, P2: REPEAT=1 
1715 DISK GET.R 
1720 F0RJ1=0T0NH 
1730 INPUT#6. TI$ (Jl) 

1740 NEXT:TRAPO ' 
1750 RETURN 

1800 IFREPEAT=0THENTRAP2290:DISK OPEN. 6. F* 

1802 POKEl 2076. PI: POKE 12042. Pg 

1805 DISK GET.R 

1810 F0RJ1=0T0NH 

1820 PRINT#6. TI*(J1) 

1830 NEXTsTRAPO 

1840 RETURN 

2000 TRAP2290 

2010 DISK OPEN. 6,F*+"H" 

2020 PRINT#6.NH 

2030 PRINT#6,NI:PRINT#6.MX:PRINT#6.LK:PRINTt&pRLl 
2040 FORI *OTQNH : PR I NT#6 . H* ( I ) : PR I NT#6 . L% ( I ) : mWT 
2060 1FNI«*ITHEN2270 
2070 F0RI=0T0NI 
2080 PRINT#6.PV.(I) 

mm NEXT 

2270 DISK CL0SE.6:TRAPO 
2280 SS= Is RETURN 

2290 60SUB7: PRINT?.. (0. 0) ! (56) "D I S K E R R 0 R TOETS ^ RETURN "i 

2295 INPUTA*: TRAP0iSS«1bG0T02©© 
3000 SQSUe7 

3003 IPNl*-lTHENG0SUB9000s RETURN 

3005 PR I NT?< ( 0 . 0 ) ! ( 56 ) " fa es : F ) ormaat G) een f ormaat " 

3006 X=32: D*="FB" : 60SUB20 

3,1 




MMMdV mmmmm mmmm HwaMBMnaMMMitfa 



3010 FS=^1: IFSR=1THENG0SUB 10000 :FS=2 
3012 SB=1 J IFFS=2THENTL=0! G0T03040 

3014 PRINTS<(0.0) ! (56) "Kiess T)otaal overzicht R)ecord oversicht " 



301? TL=0: IFSR=2THEN3040 
3020 TL«I:GOSUB 34 

3022 PRINT?-; (0, 0) ' (56) "Toets vel dvol gordw in; d. «i^lirt|^lMMr« »*| ' 

3023 PRINT"gescheiden door / " 

3024 PR I NT?.; '(60,0) ! (56) : : INPUTA*:Q=0 

3026 F0RJ=1T0LEN(A*) • ■ ■ * 

3028 IFriID*(A*, J, 1)="/"THEN3036 

3030 X=VAL ( M I D* ( A* , J , 1 ) ) • 

303 1 I F VAL ( M I D* ( A* . J . 2 ) X >0THEM X = VAL ( M I D* ( A* . J , 2 ) ) : J- J+1 

3032 FQ=0: IFXXIORX.^NH+ITHENFO'?'! ! J=LeN(A*) s(50T03036 
3034 KR(Q)»X-lrQ*'Q+l 

3036 NEXT: IFFO=lTHeMSI3t24 
3038 a=Q-l!G0SUB7 

3040 PRINTS* (0,0) ! (56) "Kies: S)cherm P)rinter »• 

3042 X=27:B#»'»»^^"*|,^5iyB20:AR«15!l%.»7¥ 

3043 IFSR=1THENDV=1:G0T03054 ,. \ 

3044 DV=4:PRINTS'. (0,0) ! (56) "Reaellenate ? " 

3045 PRI*im(iS.dH >«fe) sf INPUTA*:RL«^LrA^^ 

304"' IFRL<10RRL>150THEN3045 

3043 PRINTS'. (0, 0) ! (56) "Aantal regels per pagins ?" 
3050 PRINTS* (28, #H <MJ 6 s INPUTAts AR-^WL^fttJf 
3052 IFARU0RARM00THEN3050 
3054 G0SUB80 1 0 : RETURN 

3303 I FSB=40RTL= 1 ORDV < > 1 THEN3320 

3305 PRINTS<(0,0) ! (56) "Toets <RETURN> voor vervola o^: "i 

3306 PRWf ¥«Qr stopoen. "-i^r I'lP-yTA* 
3310 IFA*="S"THENRS«1 

3320 RETURN 

3700 IFTL=lTHEN37ll 

3702 I FD V= 1 THENG0SUB7 : PR I NTS; ( 0 . 5 ) f 

3703 PR I NT#DV . " RECORD < " 2 I + 1 j " > " 

3704 FOR J=OTONH 

3705 I FDV= 1 THENPR I NT?^ ( 0 . J +8 ) : 

3706 PRINT#DV.H«(J) : tPRINT#DV.TAB(15) ": '":TI*(J) 
370S NEXT 

3710 RETURN 

3715 IFRT<ARTHEN372S 

3716 iFmrnirmmm^BT , . 

37 1 7 RT=3 : RR=0 j K0*= " " t F0Ra=0T0(3 

3718 RR=RR+L7. ( KR ( J ) ) 

3719 NEXT:f^*lNf < m-m) /< J> ) : IFRR<=OtHENRR«l 

3720 FOR .J=OTOQ : A*=H$ ( KR ( J ) ) 

3721 IFLEN(A*) >=L-/.(KR(J) )+RRTHENA*=LEFT*(A*.L%(KR(J) )+RP-l)+" " 

3722 IFLEN(A*)<LXff#^(iH-i^W11«NA*»A«+" ":G0T03722 

3723 A*=LEFT* ( A* , LV. ( KR ( J ) ) +RR ) . KO**KO*+A* 

3724 NEXT! IFDV=1THENPRINTS<(0.4) ; 

F£miC«lTSRLf P»f?f Nf*®V, ! NEXTsPRINTttDV: IFLEN (KO*) >RLTHENG0SUB3O 

3726 KO*=LEFT« ( KO* . RL ) : PR I NTttDV . KOt 

3727 F0RX=1T0RL:PRINT#DV. "=": !NEXTsPRINT#DV 

3728 R**" 8 Ftm^mOTOQs I »- 1 f f^N^aNN: ^JT03731 

3729 IFTI*(KR(J) ) =" "THENFORX = 1T0L7. (KR ( J ) ) :R*=R*+" '*:|sfl|XT 

3730 R*=R*+TI*(KR(J) ) sF0RX=lT0RR:R««R«+" ":NEXT 

3731 mm ■ 



3015 X=48: D*="TR" : G0SUB20 




DEjgj 5 D lE! ke»^»^e:r 



3732 f%«*LerT»<R»,RL) 

3734 PR I NT#DV , R* s RT«RT+ 1 s I FRT >»ARANI>DV* 1 THENB0SUB330S 

3736 RETURN 

3800 IFDV»1THEN60SUB7 

3802 J=1:T=0:B$="":RT=1 
3820 J1=VAL(MID*(F*(T) . J, 1) ) s J=J+1 
3830 fi^vlf <5THENN«VAL (HID* CF« (T) , J , 2)> tJ'm§*^. 
3840 ON J 1 G0T03850 . 3860 , 3870 , 3890 . 39 1 0 , 3970 
3850 A*=H*(N) :G0T03950 
A*-f t*(fM) jeOT039SO 

3870 IFLEN(B*)+N>70THEN3960 

3871 F0RJ2=1T0N 
W&f*^ ®*«^*+«» "sNEXT 
3880 G0T03960 

3890 PRINT#DV,B*:RT=RT+1 

I FN > 1 THENFOR J2«2T0N s PR I NT : NEIt 
3900 Bf-= " " : G0Ta3960 
3910 IFJ>LEN(F*(T) )THENT=T+l! J=l 

mm^ J2*j 

3930 IFMID4KF* <T) . J2, 1 ) < >" ! "THENJ2=J2+1: GOT03930 
3940 A$»m|}«(F*(T) , J. J2-J) : J=J2+1 
3950 B*«B**At 

3960 I F J :>LEN ( F* (T> } THENT«T+ 1 : Ja i 

3965 S0T03820 

3970 PRINT#DV.B*:RT=RT+1 

3972 I FD V < > 1 THENFORX»RTT0AR: PR I NT#DV: NEXT 
3974 RETURN 

4000 S0SUB7:SS=0:NI=NI+1 

4005 PR I NT : PR I NT " RECORD < " : N I +■ 1 : " > " 

4010 F0RJ=0T0NH:PRINT8c<l. J+7) :H$<J) : s PRINT&c (26. "s «t 

4012 T«L'/.( J) 

40 1 4 A*= " : FORX = 1 TOT : A*=A*+CHR* < 1 27 ) s NE X T : PRI NTA*: NEXT 5 PR I NT 
4018 FORJ=OTONH! PRINT?.. (28. J+7) : : INPUTTIf (J) seOSUB4520s NEXT 
4040 IFLK»-lTMEm«NI:G0T04080 

4050 R=LK 

4060 D I SK OPEN , 6, F* : PQKE12Q76 . P 1 : POKE 1 2042, P2 
4065 BISK GET.R: INPtrr#6.LK 

4070 DISK CLOSE, 6 

4080 60SUB 1 800 : GOSUB 1 220 : P7. ( N I ) =R : I * ( N I ) =T I * ( CH ) 

4085 PRINT?! (0, 0) ! (56) "Wilt u. nog meer records toevoeaen (J/N) 

4087 PRINT?. (41. 0) ! (56) : : INPUT A*: I FA*<>"a " ANDA*<>"N"THEN40S7 

4088 IFA*="J"THENREPEAT=1:GOT04000 ■ , 
■DISK CLOSE. 6: REPEAT=0 

«©90 RETURN 

4500 PR I NTH* ( J > s : PR I NTT AB ( 25 ) " s " s s I NPUTT I * ( J ) 
4520 fmJi<3) 

4540 I FLEN ( T I * ( J ) ) >TTHENT I * ( J ) =LEFT t ( T I * ( J ) . T) 
4542 IFLEN(TI« (J) ) <TTHENTI$ (J) =TI* (J) + " " imWmS 

^fsso ■Rrrui^ ' ' ' 

5000 G0SUB7 

5005 PRINTSaOyO) ! (56) "1 = Aanoassen. 2 =» Nist ik^ni3a»»en. "5 
S©0& )»RlNf«3 * Naar einde record" . " ' 

5030 PR I NT?-: (0,5)" RECORD < " 1 1 + 1 j " >» 
5040 CS=1:RS=0!FORJ=OTONH 

S^SO PRINTI<(0. J+7) .-HttJ) ! :PRINT?<(25. J+7> •• : ":TI$rj^ :NEVT 

5052 FORJ=OTONH 

5053 PRINTS (75, J+7) ! (56) : : INPUTA*: IFA*< " 1 "0RA*>"3"THEN505:'. 
50SS IFA*«"2"THEN5090 

506 1 I F A*« "3 THENj «NH 1 60T05090 
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SCtTt WlMf m . J: J s PWl'MT ! < 56 ) ; 
5080 GOSUB 4500 
5085 CS=0 

50¥o mrr& 

5095 RS=0 

5 1 00 I FCS=OTHENG0SUB 1 800 : I * ( I ) »T I * ( CH ) 

m w mrwm - - 

6000 PRINT?<(0,0) ! (56) "Meet dit record vervallten <J/N) " 
6070 PRINT8<<32,0) ! (56) : s INPUTA*: IFA*<>"J"AND A*<> " N " THIEN6070 
(feOeO IFA**"N"THEN6150 
6095 DISK GET. P7.< I) 
6097 PRI,NTi*6,LK 

6120 FORI 1=1+ ITONI 

6130 I* ( I l-l ) =1* ( n ) : Py. ( 1 1-1 ) =P% (ID 
6135 NEXT 

6140 NI=NI-lsSS«0! I«I~l!SQSUB1220 
6150 RETURN 

7000 TPM1«-1THENG0SUB9000: RETURN 
7005 G0SUB7: G0SUB34 

7040 PRINT?* (0, 0) ! (56) "Op wel k veldnummer wi 1 ,e sortmrmn " 

7041 mrNTl< r34,0) l (56) : : INPUTA*: J 1=VAL (A*) : J1=J1-1 
7050 I F J 1 < OOR J 1 >NHTHEN704 1 

7055 I FJ 1 < >CHTHENCH«J 1 : GOSUB 1 300 

"?060 p*^INT«<(0,0) • (56) "Kies: T)oenemend A)fnemend " 
7061 X=28: Dt="TA" : GQSUB20 

7080 GOSUB7:PRINT8<(0,0) ! (56) "*** EVEN BEDULD A.U.B. ***" 
7100 F0RI=0T0NI-1 

7110 T=I 

7120 FORI 1=T+1T0NI 
7125 0NSRG0T07 130, 7140 
7130 IFIt <I1)<I$(T)THENT»I1. ■ 
7135 GDT07145 

7140 IFr$ (1 1 ) >I* (T) THENT=I1 
7145 NEXT 

7150 IFT=ITHEN7180 

71 60 T*al» ( T) : I * ( T ) = I * ( I ) ! I * ( I) =T* 
7 1 70 J 1 =P% ( T ) : P7. ( T ) «P7. < I H P7. ( I ) «J I 
7180 NEXT 
7200 SS=0: RETURN 

8000 I FN I = - 1 THENG0SUB9000 1 PWnffHf^ ^i. • r : 

SO 10 II =0 : 1 2=N I : J=0 : C 1 % ( 0 ) =- 1 : BS= 1 : REPEAT=0 ' " ""^ 

8015 G0SUB7:PRINT?a0.0) • (56) "Selektiemogeli jkheden: 
3016 PRINT"R) ecordnummer V) eld»iyEiBji<^ Wimmin " 
8020 X=59jD*="RVB":G0SUB20 
802e T«SR'-1; IFSRO2THEN8045 

8030 F0RI=:0T0NH: PRINT?.: ( 10. 1+5) " ":I + 1:"> Wflfli |>iNEXT 

8035 PRINTS! (0,0) ! (56) "Well: veldnummer ?' " 

§037 'PRim-?<C13,0) ! (56) : : INPUTAf : I=VAL(A*) 

8042 I F I < 1 OR I ;: NH+ 1 THENS037 

8045 IFSR=3THENC1':(J)=-1:G0TQS150 

8050 C1X(J)«I-1 

8054 I FSR= 1 THENPR I NT?. ( 0 , 0 ) ! ( 56 ) " Most r ec or dnuBW^ « i 1 SO? 08060 
8056 PRINT?* (0,0) ! (56) "Noet het veld ":H*(I-1);" ; 

8060 PRINT"?, = of > zijn dan de in te aeven waarde ? " 

806 1 PR I NT?.: ( 75 , 0 ) ! ( 56 ) : : I NPUTA$ : A*=LEFT« ( A* . 1 ) s m^t 
8063 IF A*=MID*("<=>".SR,1>THEN8070 
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8065 SR=SR+ 1 : I FSR >3THEN806 1 

8067 G0T08063 

8070 C2X(J)=SR 

8080 PRINT?<(0,0) ! (56) "Veraeli jken met: "s 

8085 IFCl"/. (J)=-1THEN8100 

8090 I NPUT " " : C* ( J ) I a*J+ 1 

8092 IFJ>7THEN8160 

8095 S0T08015 

8 100 PR I NT?< ( 1 8 , 0 ) ! ( 56 > ! : I NPUT " " i A« 1 1 »VAL ( A* ) 

8102 IFI<10RI>NI+1THEN8100 

810S 1*1*1 

8110 IFC2%(J)=1THENI2=I 

8120 IFC2':(J)=2THENI1 = I: 12=1 

8 1 30 IFCt"/. ( J ) =3TH©|f t* I 

8 1 35 J= J+ 1 : I F J >7THENB1 60 

8140 GOTO 8015 

BfS© IFJ<2THf:t#^"^ ■■■ ■' 

8160 PRINT?<(0,0) ! (56) "Kies: E)n relatie OH rBlatli 

8161 X=32:D*="E0"!60SUB20sBS=SR 
8200 RS=0: J1=C17.(0) 

8210 DS=0:FOR J=0T07 

8220 IFCl-/. ( J) =-lTHENJ=7: G0T08240 

8230 IFJ i< >C 1 7. ( J > THEN J 1 «-2 

8240 NEXT 

8245 I F J 1 >- 1 AND J 1 < >CHTHENCH= J 1 : GOSUB 1 300 

8246 ir34»-2f WENDS* 1 

8250 I=I1-1:RT=100:F0RI3=I1T0I2: I=I+1 

825 1 I FDS=OTHENT I * ( CH ) = I * ( I ) : G0TO8255 

8252 GOSUB 1700 
8255 AS=0:F0RJ=0T07 

8260 I FC 1 •/. ( J ) =- 1 THENJ«7 j G0T08345 

8270 0NC27. ( J ) 60TC382S0 , 8290 ,8310 

8280 I FT I * ( C 1 •/! ( J ) ) < »C* < J ) THEN8330 

8285 G0T0S340 

IWL.^T*(T1* (C17. ( J) ) , LENte* ( J > ) ) aC* (3 > THEN833© 

8295 I FR I GHT* ( C$ ( J ) . 1 ) <> " * " TMeNe340 

8298 T=LEN(C*(J) )-l 

8300 I FLEN ( T I * ( C 1 7. ( J ) ) ) < TTHENe340 

8302 IFLEFT* (TI*<C1%U) ) , T> •LEFT* (C* ( j) , T) THEN8330 

8305 60T08340 

im«<ClX<J))>=C*(J)THEN83:' 
8320 G0T08340 
8330 IFBS=2THENAS=1: J=7 



8340 I FBS= 1 THENAS*2s J»7 
8345 NEXT J 

IFPIS«©^I«BS*1THEN83S!5 
8352 IFASOITHEN 8380 
8355 IFDS=0THENG0SUB1700 

>3THENG0SUB3300 ' ^ • 

1^P=3THENG0SUB5000 
lFSi=4THEN6OSUB6O0O 
IFRS=1THEN1^|2 
NEXT 1 3 : ' 

D I SK CLOSE , & j'rEPEAT=0 : TL=0 
PRINT8<(OjO> » (56) "Dat was alles. 
RETURN 

PRINT?<(0,0) ! (56) "Er zi 



8365 
8370 

8380 
8385 
8390 
8395 
9000 
9010 



toets < RETURN > 



PRim"<immm> *i s inputa*: return 



geen records aanwezig 



i » 



INPUTA* 



TOB'ts 



f 
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lOOCX^ ©C^UB?: IFF»(0)»""THEN10042 , . 

10010 PRINTS'. (0, 0) ! (56) "Wi 1 je hetzel-fde formaat gtsbrutk^n zoai»>*# ■ 
10020 PRINT"je hiervoor gebruikt hebt ? (J/N)"; 
1 0022 X*77 « !>*• " JN f 60SUBf20 
1 0025 I rii«» 1 THENRETURN 

10042 PRINTS (0, 0) ! (56) "Ki ess Dnlezen formaat A)anmakBn formaat "; 
10044 X»#2f D#»« I A" 5 eOSUB20 

10050 IFSR=2THEN10200 ■ = 

10052 PRINT?* (0.0) ! (56) "Welke formaatnaam ? "::INPUTA* . ■ ,- • j , 

10090 Tf^«»IOl70«f*RII*IT^ f«J» 4>s 

1 0 1 00 D I SK OPEN , & , A* : I NPijT#6 , NF 

10140 FORJ=OTONF: INPUT#6.F* (J) :NEXT 

lOlS© &I®K CLO^, 6! TRAPOl RETURN 

10170 PRINT?.; (0,0) ! (56) "Formaat niet gevonden !! to»ts <RETURi^>"| 
10180 INPUTA*:S0TQ200 

ld:jg«' »>tF*Os J'»OfF*idJi'»»»« ■ ' ■ 

10205 PRINT?< (0.0) ! (56) "Kies! V)elclnaam Dinhoud S)oatieS NJ i^B^'l 

10210 PRINT"we reael T)ek3t E)xnde "j 

10215 X=67:I5lt»"¥I^l«t®«mS20l^**^ 

10240 Ff (NF)=F*(NF)+A$: J=J+1: J1=SR 

1 0250 ON J 1 GOTO 1 0260 . 1 0260 , 1 0300 . 1 0300 , 1 0350 , 1 0400 
10260 F0RT=0T0NH:PRlNT8<(2dy&44*M t^>T+ls'') «|l^itl 
10270 PRINT?< (0, 0) ! (56) "Wei ke ? *• f 
1 0272 PR I NT?< ( 8 . 0 ) ! ( 56 ) : : I NPUT A* s T-VAL ( A$ ) 

10275 T=T--1: IFT<OORT>NHTHEN 10272 . 

10280 B*=STR$ (T) : IFLeN(B*)*lTHENB**"0"+B« 

10285 eOTO 10320 

10^0 '^lNT&i<»,#) « <l&*«'H©«v#el 

1 0302 PR I NT?/. (9,0) ! ( 56 ) : : I NPUTB* 

10304 T=VAL(B*) : IFLEN(B*)=1THENB*="0"+B* 

10320 F*(NF)=F*(NF)+B*s Jf*J+l '. -'-„;, 

1 0330 ^eOTO 1 0380 . . . . , . 

1 03S€> #0Syt7t PRI mr«« < O, 6) " TEKST : " : : I NPUTB* s B*«Bt+ " ! 
10360 IFLEN(B*)+J>70THENNF=NF+l: J=0sF*(NF)«"" 
10370 F*(NF)=Ft (NF)+B*: J=J+LEN(B*) 

103Q0 IFJ>67THENNF=NF+ls J<a:Oi F* <NF)«"" i 
1 0390 G0SUB7 : GOTO 1 0205 

10400 PRINTS<(0,0) ! (56) "Onder welke naam moet het formaat bewaart ": 

10404 PRINT?.; (52, 0) ! (56) ; : INPUT<*«||^*=LEFT* ( A*, 
1 04 1 8 TRAP 1 0500 : PR I NTS* ( 0 . 4 ) : : DISC OPEN . 6 . A* ' 

i mm^ fm i nt«6 , nf s FiMj-oTOfrr s pr i nt«6 . f* ( j > % ne xt 

10440 DISK CLOSE, 6: TRAPO: RETURN 

10500 PRINTS'. (0, 0) ! (56) "Bestand ":A*:" bestaat niet ! "! 
10510 PRINT"Toets < RETURN > " s ? I NPUTA* s e0T02Q0 

8" FDOS controllerkaart aet FD 1771 fl. 
2 X 6K Ra«/Rot kaart Mt 2 x 6K Rat en in 
Eoroft's FDOS 1.2 voor 8" flJ»*0O 
VerkooD ten tehoeve van een Belaisch lid. 
Voor inforiatie of bezichtiqinps Tel. : 01807 - 19811 
Verzendkosten zi m niet in de ori is inbeoreoen. 

ITT ttodeft 600/1200 baud, half duolex t.e.a.b. 

5" Shuoart SA 200 floDoy-drive, 40 tf. fi.i» t.e.a.b. 

IBM 029 kaart oonstachine t.e.a.b. 
Olyaoia 5chri]ftachine tet brede ymfm^ niil* 

electrisch. aet lilliout-letter t.e.a.b. 
A. Mueller 

l^-ll^a^""" T.>..0»-IBI2e 



Ik zoek alle technische soe- 
cifikaties over de MIDI-bus, 
en scheta's over reeds be- 
st aande interfaces voor 
koDoelina van MIDI- 
svnthesizers, zoals de DX7 
van Yfl««Hft of de JX3P. JX8P, 
JuDiter 6 en Juno 106 van 
Roland aan coaouters. 
yie kan nil daaraan heloen? 
Stefan Soeriina, 
Uavensest^erMeq 88 A, 
B-1990 MaiFt. 



COOO- 
C002- 
C005- 
C007- 
COOA- 



fl9 40 
8D 20 03 
09 CO 
BD 21 03 
A9 20 



00^ 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 



!! !REM 



OUTP 



SELECT 



DRA 
DRB 
DORA 
DDRB 



BUSY 
BUS 



OUTV 

DESELECTV 
SELECTV 



DEVI 
SECA 



INIT 



• « t f • • # # ••#*••## ft 

p 

;« CENTRONICS PRINTER INTERFACE # 

;* DEVICE 4 OR 5 ON mmmsm m « 

i« BYt liUUD UPHCFF FEB. ISM * 
•« « 
)•«' * » « ft «»**««* ft # * • ft 



.BA «C000 
.OS 



^msmmm at «cooo 



.MD : REMARK MNEMONIC 

•ftiftftft EXTERNAL PROCEDURES ftftftftft 
ft 

*Pfi£N!£IXJ^ "OUTP" 

: -PRINT CHARACTER ON CURRENT OUTPUT DEVICE 

: -ENTERED BEYOND VECTOR 

.DE iFlCA : ADDRESS AT *F1CA 

■ 

•PROCEDURE "DESELECT" 

: -DESELECT ALL I/O DEVICES AND SET DEFAULT I/O 
: -INPUT FROM KEYBOARD AND OUTPUT TO SCREEN 
.01 #^333 tm^mjff fF333 

^iP^QI^OURE "SELECT" 

• -m.iCT OUTPUT DEVICE FROM FILE STORED IN "DEVI" 
; -CMD DEVIp MlfU ^PJNDARY ADDM^ m STORED 
: IN "SECf^ 

; -THEN ALL OUTPUT TO THAT DEVICE 
.DE ♦F250 : ADDRESS AT *F250 

■ 

;**»#« EXTERNAL VARIABLES ##»«« 

■ 

•I/O RE6ISTERS OF 6526 CIA «1 

■ 

.'DE $0000 :DATA REGISTER A 

.DE *DD01 :DATA REGISTER B 

.DE *DD02 :DATA DIRECTION REGISTER A 

.OE >0D03 :OATA DIRECTION REGISTii 9 

•ALIAS FOR SOME OF ABOVi'S RE6*S 



.DE DRA 
.DE DRB 



: ALIAS OF DRA 
: ALIAS OF DRB 



:KERNAL VECTORS TO ABOVE PROCEDURES 

■ 

."DE *0326 : VECTOR TO "OUTP" 

.DE $0322 : VECTOR TO "DESELECT* 

.DE $0320 : VECTOR TO "SELECT" 



;KERNAL PA6E ZERO 



.DE «OOBA 
.DE iOOBg 



:FILE DEVICE NUMBER 
:FILE SEC. ADDRESS 



:##««* INITIALIZE BY SYS 49152 ♦**«* 



REM 

LDA «L,SCAN 
STA SELECTV 
LDA #H,SCAN 
STA SELECTV+1 
LOA tL, RESET 



;PROC "INIT" 

: SET LOW BYTE OF SELECT VECTOR 
: TO AN INTERCEPT ROUTINE 
: SAME ACTION 
: FOR HIGH BYTE 

: SET LOU BYTE OF DESELECT VECTOR 
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COOC- 8D 22 03 
COOF- flg CO 
coil- 8D 26 03 
C0i4~ fiO 



CO 15- fl9 
8D 



C017- 
COlfi- 09 
COIC- BD 
COIF- 09 FF 



GB 

26 03 



CI 

27 03 



DD 



C021- flD 03 
C024- OD 02 DD 
C027- 29 FB 
C029- SD 02 DD 
C02C- 60 



C02D- 08 
C02E- 48 
C02F- fl9 Cfl 
C031- 8D 26 03 
flg Fl 
8D 27 03 
68 



C034- 
C036- 
C039- 
C03ft- 28 
C03B- 20 
C03E- 18 
EOaF- 60 



33 F 3 



C040- 
C043- 
C044- 
E045- 
C047- 
C049- 
C04B- 
C04C- 
C04D- 
C050- 
C051- 
C052- 
C053- 
C055- 
C057- 
C059- 
C05B- 

C05D- 
C05F- 
C062- 
C064- 
C066- 



20 50 F2 

08 

48 

05 BA 
C9 04 
FO 05 
68 
28 

4C 79 CO 

68 

28 

48 

05 B9 
C9 FF 
DO 04 
09 60 
85 B9 

29 OF 
8D 92 CI 
C9 07 
FO 04 
C9 00 



0700 

0710 

0720 

0730 

0740 

0750 

0760^ 

0770 

0780 

0790 

0800 

0810 

0820 SETCENTR 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 RESET 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 3cm 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 CINTR 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 



STOR 



STO DESELECTV 
LDO #H, RESET 
STO DESELECT V+1 
RTS 



: TO AN INTERCEPT ROUTINE 
: SOME ACTION 
: FOR HIGH BYTE 



***** KERNAL EXPANSION *«•«« 

PROCEDURE "SETCENTR" 
-DESELECT OLL CURRENT I/O DEVICES 
-SET OLL OUTPUT TO CENTRONICS BUS 
-INITIALIZE CENTRONICS BUS 



REM 

LDA #L,PROUT 
STA OUTV 
LDA #H.PROUT 
STA OUTV+1 
LDA #*FF 
STA DDRB 
LDA DDRA 
AND #«FB 
STA DDRft 
RTS 



PROC "SETCENTR" 

SET HIGH BYTE FROM OUTPUT \«CTOR 

TO CENTRONICS ROUTINE 

SOME ACTION 

FOR HIGH BYTE 

8 BITS FOR DATA OUTPUT 

INTO DDRB 

GET STATE OF DDRA 

SET BIT 2 FOR OUTPUT 

AND RESTORE HFRi DDRA 
ENDPROC 



PROCEDURE "RESET" (COLLED BY KERNAL NOU) 
-RESTORE ORIGINAL OUTPUT VECTOt 
-DESELECT ALL I/O DEVICES 'i: 



REM ' 

PHP 

PHA 

LDA #L,OUTP 
STO OUTV 
LDA #H. OUTP 
STO OUTV+1 
PLO 
PLP 
JSR 
CLC 
RTS 



PROC "RESET" 

SOVE STOTUS 

OND DON'T SCUMBLE 0 

RESET LOW BY1«.13r OUTPUT VECTOR 

TO DEFAULT 

SAME ACTION 

FOR HIGH BYTE 

RESTORE A 

RESTORE STATUS 

EXEC: "DESELECT" 

SET "NO ERROR" 
ENDPROC 



PROCEDURE "SCON" (CALLED BY KERNAL NC 
-EXECUTE ORIGINAL PROCEDURE "SEL6E# 
-EXECUTE ORIGINAL ROUTINE ■ • 

AND REMOVE ERROR 

OTSER DEVICE. Bfl£5K TO KERNAL 



REM 

JSR SELECT 

PHP 

PHA 

LDA *DEVI 
CMP #$04 

BEQ cenTfi 

PLA 
PLP 

JMP ENDSCAN 

PLA 

PLP 

PHA 

LDA *SECA 
CMP #$FF 
BNE STOR 
LDA #*60 
STO *SECfl 
REM 

OND #*0F 
STO MODE 
CMP #$07 
BEQ NOER 
CMP #$00 



PROC: "SCON" 
EXEC: "SELECT" 
SAVE STATUS 

SOVE ERROR CODE IF ANY 
GET DEVICE WONTED 
IF NOT "PRINTER 1" 
THEN 

RESTORE ERROR CODE 
RESTORE STfttUi 
ELSE 

PULL 0 FROM STACK 
OMMIT STATUS 
PUSH A BACK ON STACK 
GET SECUNDARY ADDRESS 
IF SET BY DEFAULT 
THEN 

REPLACE BY ZERO 

INTO SECUNDARY ADDRESS 
ENDIF 

DROP OFFSET $60 
AND STORE COPY 
IF SEC. ADDRESS 7 
OR 

SEC. ADDRESS 0 
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C068- DO OB 



COBft- 
C06D- 
C070- 
C071- 



20 33 F3 
20 IS CO 



68 
18 

C072- 4C 79 CO 
C075- 68 
C076- A9 09 
C078-- 3S 



C079- 60 



C07fi- 48 
C07B- 09 04 

C07D- 2C 00 DD 
C080- DO FB 
C082- 68 



C083- 8D 01 

coee- 18 

C087- 60 



m 



C088 
C089 
C08B 
C08D 
C090 
C092 
C095 
C097 
C09fl 
C09D 
C09F- 
C0fl2- 
COflS- 
C0fi7- 
C0«9- 
COfiB- 

COfiE- 
COBO- 
C0B2- 
C064- 
C0B6- 



CI 



48 

05 B9 
29 OF 
- 8D 92 CI 
09 00 
20 70 CO 

09 00 
8D 91 
2C 8F CI 

10 10 
EE 90 CI 
OD 90 CI 
C9 42 
DO 05 
A9 00 
8D w CI 

C9 03 
90 04 
C9 3F 
90 03 . 

m m m 



com- 68 
CQBfl« 60 



COBB- 48 
COBC- BO 
COBD- 48 
COBE- m m CI 

COCl- FO OE 
C0C3- CA 
C0C4~ m OD 



1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2O20 
2O30 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 



NPER 



ENSCAN 
Ei«»SCAN 



PUTBUS 

mij 



cia-F 



P06E 



CLEFT 



BNE ERR 
JSR 
JSR 
PLfl 
CLC 

JMP ENSCAN 
*>LA 

LOA ••09 

SEC 
REM 
REM 
RT8 



:PRtXmjRE "PUTBUS" 
: -PUT CHARflCTEf IN ft 

• 

REM • 

PHO ; 

LDO ««4 : 

REM . 

BIT BUSY 5 

BNE WAIT i 

PLA J 

8TA BIB ! 

d£ * 

mm I 



THEN 

EXEC: "DESELECT" 
EXEC! "SETCENTR" 
RESTORE A 
SET "NO ERROR" 
ELSE 

REMOVE A FROM STACK 
mr "ILLEBAL DEVICE" 
Mr "ERROR" 
ENDIF 
ENDIF 

enoprcm: 



PROC "PUTBUS" 
SAVE CHARACTER 
IT MASK FOR HAND94AKE 

JAT 

CHECK PRINTER STATUS 
UNTIL PRINTER NOT BUSY 
RESET CHARACTER 
PUT ON CENTRONICS BUS 
SET "NO ERRORS" 
ENDPROC 



J PROCEDURE "CRLF" 

: -PRINT CRLF ON PRINTER 

• -peWOm PA6ING 



REM 
PHA 

LDA «SECA 
AND »«0F 
STA MODE 
LDA «*0A 
JSR PUTBUS 
LDA tSOO 
STA COLM 
BIT P6FL 
BPL ENDCR 
INC LINE 
LDA LINE 
CMP «66 
BNE NORES 
LDA «$00 
STA LINE 
^M 

CMP #«03 
6CC PASE 
CMP #63 
ICC NOMARS 
SSR CRLF 
^M 
iEH 



SPI«JCEDURE "CLEFT" 
! **>ERFORM BACKSPACE 

■ 

REM 
PHA 
TXA 
PFtf) 

LDX COLM 
REM 

BEQ CLllM 

^ mm 



:PROC "CRLF" 

: SAVE CHOROCTER 

: SECUNDARY ADDRESS 

; WHITHOUT OFFSET $60 

: R0»RESENTS CHARACTER SET 

I SET OKI LF WITH (H 

: EXECS "PUTBUS" 

• ^^ERO°'""'*** 

s IF PA6IN6 m 

i THEN 

t VANCE LINE aSMf 
T RESULT 

; IF NEXT PASE 

: THEN 

: PUT ZERO 

: INTO LINE COUNTER 

: ENDIF 

: IF IN TOP MORBIN 

: OR 

: IN BOTTOM MARGIN 

: THEN 

: EXEC: "CRLF" 

: ENDIF 

; ENDIF 

: RESTORE CMbF 

: ENDPROC 



;PROC "CLEFT" 

: SOVE 0 

: SOVE X 

■ 

■ BET COLUMN IN X 

S IF NOT AT LEFT MARilM 

! THEN 

: DECREASE COLUMN 

: BET CR WHITHOUT LF 
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C0C6- 
C0C9- 
COCB- 
COCE- 

CODl- 
C0D2- 
C0D3- 
G0D4- 



20 7fl CO 
ft? Op 



68 

68 
iO 



C0D5- 
C0D8- 
CODft- 
CODD- 
COEO- 



EC 91 CI 
FO 06 
20 26 CI 
4C D5 CO 



COEl- 
C0E3- 
C0E5- 
C0E7- 
C0E9- 
COEB- 
COED- 
COEF- 
COFl- 
C0F3- 
C0F5- 
C0F7- 
COFg- 
COFB- 
COFD- 
COFF- 
ClOl- 
C104- 

C106- 

C109- 



ClOfl- 
ClOC- 
ClOF- 



CllO- 
C112- 
C115- 



C9 08 
FO D6 
eg 91 
FO 27 
C9 11 
FO ID 
C9 OA 
FO 25 
C9 OD 
FO 93 

eg 13 

FO 3E 
C9 93 
FO 36 
eg OC 
DO 05 
2C 8F CI 
30 40 

20 7fi CO 

60 



fl9 07 
8D 92 CI 
60 



09 00 
8D 92 CI 

60 



C116- 
CH7- 

ciis- 



48 
8fl 
48 



21§Q 

2170 
-2180 
^2190 

^^2200 CLISN 
^2210 

22^0 

2230 

2240 

2250 

2260 

2270 

2280 

2290 Of^ 

2300 

2310 

2320 

2330 

2340 END0R6C 

2350 

2360 

2370 

2380 

2390 

2400 CTRL 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 ■ ' 
2540 
2550 
2560 
2570 
2580 
2590 

2600 EI«S£rrRL 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 SETLO 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 SETUP 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 CDOWN 
2860 
2870 
2680 



JSR PUTBUS 
UOft «f00 

sTft m 
jm m 

REM 
PLA 
TftX 
PLA 
RTS 



S EXECS "PUTBUS" 

! PUT ZERO 

! INTO COLUMN 

: EXECS "ORGC 

; ENDIF 

: RESTORE X 

■ 

: RESTORE ft 
:ENDPROC 



PROCEDURE "ORGC" 
-GO TO COLUMN FROM X 



REM 

CPX COLM 
BEQ EN00R6C 
JSR BLANK 
JMP ORGC 
RTS 



: procedure "ctrl" 
* -handle control 

Ieh 

REM 

CMP ««08 
BEQ CLEFT 
CMP ««91 
BEQ SETUP 
CMP #*11 
BEQ SETLO 
CMP «$0A 
BEQ CDOMN 
CMP #*0D 
BEQ CRLF 
CMP #$13 
BEQ SETPG - 
CMP #$93 
BEQ CLRPG 
CMP #*0C 
BNE ENDCTRL 
BIT PGFL 
BMI NXTPG 
REM 

JSR PUTBUS 

REM 

RTS 



;PROC "ORGC" 

: WHILE NOT ON COLUMN X 
; 00* 

5 EXECS "BLANK" 
: ENDUHILE 
SENDPROC 



tmm "CTRL" 

S laSE CHARACTER 

% WHEN BACKSPACE 

* GO DO CURSOR LEFT 

: WHEN CURSOR UP 

: GO SET UPPERCASE 

: WHEN CURSOR DOWN 

: GO SET LOWERCASE 

t WHEN LINE FEED 

' * 60 DO CURSOR DOWN 

' f WHEN CRLF 

J GO DO CRLF 

: WHEN HOME 

I 60 SET PAGING ON 

I WHEN CLR/HOME 

5 GO SET PAGING OFF 

: PAGING ON 

; GO TO NEXT PAGE 

5 OTHERWISE 

f EXECS "PUfKS* 

: ENDCASE 

:ENDPROC 



: PROCEDURE "SETLO" 

: -SET LOWERCASE/U^^CiW IMI 



■ >./ ij-i 
• ■ - 1 
r 

•PROCEDURE "SETUP" 



REM 

LDA «*07 
STA MODE 

RTS 



.PROC "SETLO" 
: SET LOWERCASE 
: INTO CHAR. WWE 
:ENDPROC 



-SET UPPERCASE/6RAPHti!» Wm 



REM 

LDA «$00 
STA MODE 
RTS 



:PROC "SETUP" 
: SET UPPERCASE 
: INTO CHAR. MODE 
;ENDPROC 



PROCEDURE "CDOWN" 
-PERFORM LINEFEED WITHOUT CR 



REM 
PHA 
TXA 
PHA 



SPROC "CDOWN" 
: SAVE A 
: SAVE X 
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2^Ei S D E! 



K EM ME Ft 



C119- 


fiE 


91 


CI 


2890 


CllC- 


20 


88 


CO 


2900 


CllF- 


20 


D5 


CO 


2910 


C122- 


68 






2920 


C123~ 








2930 


C124- 


6a 






2940 


C125- 


&0 






2950 










2960 










2970 










2980 










2990 










3000 


C126- 


09 


20 




3010 


C128- 


20 


2C 


CI 


3020 


C12B- 


60 






3030 










3040 










3050 










3060 










3070 










3080 


C12C- 


20 




CO 


3090 


C12F- 


EE 


91 


CI 


3100 


C132- 


60 






3110 










3120 










3130 










3140 










3150 










3160 


C133~ 


4E 


8F 


CI 


3170 


C136-- 


60 






3180 










3190 










3200 










3210 










3220 










3230 


C137- 


38 






3240 


C138~ 


6E 


8F 


CI 


3250 


C13B~ 


P9 


41 




3260 


C13D- 


8D 


90 


CI 


3270 


C140~ 


P9 


00 




3280 


C142~ 


8D 


91 


CI 


3290 


C145-- 


60 






3300 










3310 










3320 










3330 










3340 










3350 










3360 


C146- 


AD 


90 


CI 


3370 


C149- 


C9 


03 




3380 


C14B- 


FO 


06 




3390 


C14D- 


20 


88 


CO 


3400 


C150- 


4C 


46 


CI 


3410 


CI 53- 


60 






3420 










3430 






3440 








3450 










3460 










3470 


C154- 


29 


FF 




3480 


C156- 


10 


04 




3490 


C158~ 


29 


7F 




3500 


C15A-~ 


DO 


OB 




3510 


C15C~ 


C9 


40 




3520 


C15E~ 


90 


07 




3530 


C160~ 


C9 


5B 




3540 


C162- 


BO 


03 




3550 


C164- 


16 






3560 


ciss* m 20 




3570 










3580 










3590 


C167- 


20 


2C 


CI 


3600 


ClSfN fiO 






3610 



BLANK 



OUTPUT 



CLRPS 



30 SETPG 



NXTPG 



PAGED 



mm 



NOSHFT 



NTLW 
ENDUPL 



LDX COLM 

JSR CRLF 

JSR 0R6C 

PLfl 

TAX 

PLfl 

RTS 



PROCEDURE " BLANK" 
-PRINT A BLANK 



REM 

LDA #$20 
JSR OUTPUT 



GET COLUMN IN X 
EXEC: "CRLF" 
EXEC: "ORGC" 
RESTORE X 

RESTORE A 
ENDPROC, 



PROC "BLANK" 
GET A BLANK 
EXEC: "OUTPUT* 

ENDPROC 



PROCEDURE "OUTPUT" 
-PRINT CHARACTER. COUNT COLUMN 



REM 

JSR PUTBUS 
INC COLM 
RTS 



PROCEDURE "CLRPG" 
-SWITCH PAGING OFF 



REM 

LSR PSFL 

RTS 



PROCEDURE "SETPG" 
-SWITCH PflGING ON 



REM 

SEC 

ROR PGFL 
LDA #65 
STA LINE 
LDA #*00 
STA COLM 
RTS 



PROCEDURE "NXTPG" 
-GO TO NEXT PAGE 

ftEM 

LDA LINE 
CMP #03 
BEQ PAGED 
JSR CRLF 
JMP NXTPG 
RTS 



PROC "OUTPUT" 
EXEC: "PUTBUS" 
ADVANCE COLUMN 

mmmm 



PROC "CLRPG" 
PAGING OFF 
ENDPROC 



PROC "SETPG" 
PAGING ON 

SET "END OF PAGE" 
INTO LINE COUNT 
PUT ZERO 

INTO COLUMN COUNT 
ENDPROC 



PROC "NXTPG" 

WHILE CURRENT LINE MIMI©? 
NOT 3. 
DO: 

EXEC: "CRLF" 
END WHILE 
ENDPROC 



PROCEDURE "UPLOW" 
-PRINT IN UPPERCASE/LOWERCASE MODE 



REM 




;PROC "UPLOW" 


AND 


#*FF 


: IF SHIFTED CHARACTER 


BPL 


NOSHFT 


: THEN 


AND 


#»7F 


: DROP BIT 7 


BNE 


ENDUPL 


: ELSE 


CMP 


#*40 


: IF ABOVE '? 


BCC 


NTLW : 


: AND 


CMP 


#»5B 


: BELOW ^ 


BCS 


NTLW 


: THEN 


CLC 




: ADD OFFSET 


ADC 


! TO LOWEm:fl^ 


REM 




: ENDIF 


REM 




: ENDIF 


JSR 


OUTPUT 


: exec: "OUTPUT" 


RTS 




! ENDPROC 



4 



G 5 □ iE! 



KEIMNEIR 



CISB- 
C16C- 
C16E- 
C170- 
C172- 
C173- 
C174- 
C177- 
C17fl- 
C17D- 
C17F- 
C180- 

ciai- 

C184- 
C187- 
C188- 
C189- 



C18C- 
C18D- 
CiSE- 



4a 

29 



7F 



eg 20 
BO 08 
68 
48 

20 El 
4C 8C 
flD 92 
FO 08 
£8 
48 

20 54 
4C 8C 
68 
48 

20 2C 



3620 
3630 
3640 

3650 . 
3660 
3670 
3680 

3690 PRDUT 

3700 

3710 

3720 

3730 

3740 

3750 
CO 3760 
CI 3770 
CI 3780 NORMAL 

3790 

3800 

3810 
CI 3820 
CI 3830 

3840 UPGR 



CI 



£8 
16 
60 



C18F- 00 
CI 90- 00 
C191- 00 
CI 92- 00 

//0000,C193,C193" 



3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 



ENDPR2 
ENDPRl 



PGFL 
LINE 
COLM 
MODE 



PROCEDURE "PROUT" 
-CHECK CHORflCTER TYPE 
-CHECK CHARACTER SET TYPE 
-HANDLE CHftSaCTER fmmimji 



REM 
PHA 

AND #$7F 
CMP #$20 
BCS NORMAL 

PLA 
PHA 

JSR CTRL 
JMP ENDPRl 
LDA MODE 
BEQ UP8» 
PLA 
PHA 

JSR UPLOW 
JMP ENDPR2 
PLA 
PHA 

JSR OUTPUT 



PLA 
CLC 
RTS 



.BY *00 

•BY $00 

.BY $00 

•BY $00 



iPfm "PROUT" 
: SAVE CHARACTER 
: DROP SHIFT BIT 
: IF CTRL CHARACTER 
THEN 

! RESET FROM STACK 
: SAVE CHARACTER 
: EXEC! "CTRL" 
! ELSE 

i IF LOWERCASE MODE 
1 THEN 

S , RESET CHARACTER 
;. SAVE CHARACTER 

: EXEC: "UPLOW" 

: ELSE 

: RESET CHARACTER 

SftV« CHARACTER 
: EXEC» "OUTPUT" 

! ENDIF 
: ENDIF 

: RESTORE CHARACTER 
! SET "NO ERRORS" 
sENDPROC 



:PAGIN6 ON (BIT 7) 
: CURRENT LINE NUMBER 
-•CURRENT COLUMN 
iTYPE CHARACTER SET 



Bift m Tiel, 6mKk. 

Ik werk nu sinds een half laar nei tie JIMIOR + 
interface. 3 x 16 K dvnaiische rai, VDU-kaart en 
diskcontroller aet daaraan een 80-tracks drive, 
•erk MicroDolis. Ik heb daardoor uitHisselorobleten 
gehad aet de iO-t racks drives van andere leden. die 
■e dan ook aanraadden dit softwaretatio oo te 
lossen; dus steeds 2 tracks in olaats van'l track 
sorinoen. Dit heeft m echter oo een ander soosr 
aebracht. naieliik de DOS van OHIO aanoassen oo 80 
tracks. Uelnu, dat Hilde ik je hierbij dooroeven. 
It vtlgmdi vcraMteringm zijn ttaarvoor nmllfl" • 



2768 flS 39 Hordt A9 79 
mB C9 39 mrdt C9 79 

m m mm m n 



aanoassen ERROR- 
•eldino voor ) 40 tracks 

4= .i 



Hisschien dat andere leden aet een of Merdere 80- 
tracks drives hieraee hun voordeel kunnen doen. 



VRMG EN flflNBOD 



FATE 65 IS ft 12K (F)ORW>T LISTER. (fl)SSEmLER. (T)flPE- 
UTILITIES. (E)DITOR FOR JUNIOR-COMPUTER WITH PRINTER- 
NONITOR AND TflPE-MONITOR. THE S0URCE-LISTIN6 UflS DEVELOPED 
BY ROB BANEN: C0PYRI6THS OF ASSEMBLER MD EDITOR BY PROTON 

SifF^fH-. . '*SS29L T« NETHERLflN^JfcJMN OFFER VOU 
THIS USEFULL PROGRfW HITH THE pH^SToF PROTON 

ELECTRONICS. 

KITH THE EDITOR ONE CAN MAKE TEXT-FILES AND SOURCE-FILES, 
TO K URIHEN ON OR READ FROM CWE OR TUO TAPE-RECfflBIERS. 
HITH OR WITHOUT REMOTE-CONTROL. HITH THE ASSEMBLER IT IS 
POSSIBLE TO CONVERT SOURCE-FILES INTO OBJECT-CODE. FROM 
CASSETTE TO CASSETTE. FROM MEMORY TO MEMORY. FROM CflSSEHE 
TO MEMORY AND VISA VERSA. YOU CAN MER6E AND YOU CAN SPLIT. 
THE FORMAT-LISTER IS MADE TO CONTROL THE MICROLINE PRINTER 
OKI-80, BUT IT IS EASY TO CHANGE FOR YOUR OWN PRINTER. 
YOU NEED 16K FREE RAM. BETTER 32K ($2000 - $9000). 
CASSEHE WITH OBJECT IN KIM/JUNIOR HYPERTflPE fMD 
MANIWL (DUTCH LANGUAGE) FOR FATE 65 VI. 0 FL. 47.50 

COMPLETE SOURCE-LISTING HITH COMMENTS 
(ENGLISH LANGUAGE) FOR FATE 65 VI. 0 FL. ilO." 

FORHii COUMTMES PAY HITH EURQCNEil^. 

mmamm. 7.so Eirm nMNSFERs. 
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CCHmODORE BASIC 2.0 (called Uoorade or New ROMi #if f^ iiiltl). 



Tokenized Miercrsoft Basic Keywords and addressi^ N. 
Analogous to the oublication for Comrtiodore-64 bv ft* Hu»ller« 
DE 6502 KENNER, December 1983, oaaes 5-8. 



de Vries 



C0MI4ANPS 



KEYWORDS CORRESPONDING TO C092 
ADDRESSES CORRESPONDING TO COOO 



f 


THE ADDRESSES OF 


ROUTINES FOR COMMANDS ARE 


THE ADDRESSES 1 


1 
1 

— - — — — — 


mmm 


1. BECAUSE 


THE ROUTINES ARE INVOKED 


THROUGH 


RTS. 1 


KEYWORD 




TOKEN 


ADDR-1 








END 


80 


C740 


■ » • - % ■ 


92 


D707 


FOR 


ii 


C657 


LOAD 


93 


FFD4 


NEXT 


82 


CCIF 


SAVE 


94 


FFD7 


DflTfl 


83 


C7FF 


VERIFY 


95 


FFDfl 


INPUT# 


84 


CAA6 


DEF 


96 


D28C 


tmiT 


8S 


CftCO 


POKE 


97 


D706 


DIM 


86 


Cf&2 


PRINT# 


98 


C98fl 


READ 


87 


CB06 


PRINT 


99 


C9AA 


LET 


88 


08flC 


CONT 


9A 


C76fl 


GOTO 


89 


C7AC 


LIST 


9B 


C5B4 


RUN 


8A 


C784 


CLR 


9C 


C576 


IF 


SB 


C82F 


CMD 


m 


C990 


RESTORE 


80 


C72F 


SYS 


m 


FFDE 


6QSUB 


8D 


C78F 


□PEN 


9F 


FFBF 


RETURN 


eE 


C7D9 


CLOSE 


AO 


FFC2 


REM 




C842 


SET 


Al 


CA7C 


STOP 




C73E 


NEM 


A2 


C55A 


ON 


91 


C852 


60 


CB 


(C725) 


NULL 













MISCELLANEOUS KEYWORDS 

KEYWORDS CORRESPONDING TO CUD 



TflB( 

TO 

FN 

SPC( 

THEN 

NOT 

SUP 



A3 
A4 
AS 

m 

AT 
A8 
A9 
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KEIMMER 



COMMODORE BASIC 2.0 (called Uiiar«cie or Nsw imm (For CBM 30XX}). 
TohenizL'd Microsoft Basle tcwwords and addrasses 



I 



DYADIC (JPERATORi 

KEYWORDS C0RRESP0NDIN6 TO C134 

PRIORITIES AND ADDRESSES C0RRESP0NDIN6 TO C074 



THE ADDRESSES OF ROUTINES FOR DYADIC OPERATORS ARE THE 
ADDRESS MINUS 1. BECAUSE THE ROUTINES ARE II^OKED 
THROUGH A RTS INSTRUCTION. 



1 








1 


KEYWORD 


TOKEN 


ADDR-1 


PRTY 






(&k 


D775 


79 


addition 




AS 


D735 


79 


subtraction 


* 


AC 


D936 


7B 


multiolicat ion 


/ 


AD 


DAID 








AE 


DE67 


7F 


exDonentat ion 


AND 


AF 


CECA 


50 


loaical PND 


OR 


BO 


CEC7 


46 


logical OR 


monadic "-" 


AB 


DEAO 


7D 


negation 


monadic 


"'US 




m 


logical fMJT 


> 


Bl 


CEF7 


64 


comoarison 


SB 


B2 


CEF7 


64 


comoarison 


< 


B3 


CEF7 


&4 


CDiAoarison 



FUNCTIONS 

' iMlrriiip S0RRESP0I#IN6 TO C141 
ADDRESSES CORRESPDNDTNS TO C046 



KEYWORD TOKEN ADDR 



SGN 




B4 


DB45 


TAN 


CO 


E028 


INT 




BS 


DBDa 


ATN 


CI 


EOBC 


ABB 




m 


#BS4 


PEEK 


C2 


D6E8 


i©R 




B7 


0000 


LEN 


C3 


D65& 


FRE 




BB 


D259 


STR* 


C4 


D33F 


POS 




B9 


D27A 


VAL 


C5 


D687 


SQR 




BA 


CESE 


ASC 


m 


D66j5 






BB 


WFTF 


ewRf 


C7 


mm 


L0@ 




BC 


D8F6 


LEFT$ 


ca 


D5D5 


EXP 




BO 


OEDA 


RIGHT* 


C9 


D606 


COS 




BE 


DFD8 


MID* 


CA 


0611 


SIN 




BF 


DFDF 








Noivl 


1) Bit 


7 in the 


last character 


of each kevword 


i s set 


to detvm: 




the 


end of a 


keyword 









2) K#yi»iiftis ar* toksnind by adding H^SO' to thair ralailfii tlrnn) 
ooaition in the table. 
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SiB 5 a ^ KENNER 



FORTH OP JUNIOR COHPifTERS PEEL 2. 

doir: 6. van Opbroek (6EV0P) 
HoogUnden 28 
9811 LB Zuidborn 

weaimssmsBBSisB 

In deze af levering zal ik trachten enige duidelijkheid 
te verschaHen in het gebruik van de verschillende ver- 
sies van FORTH voor de Junior en hoe progranna's die in 
de ene versie geschreven zijn cngeMerKt Kunnen worden 
mar ten m(kr§ v^f it* 

Voor de Junior zijfi CMj MlmHttii) * volgin* W- 
sies beschikbaar: 

1) fig-FORTH 

2) 79-5tandaard FORTH voor oebruik net cassette 

3) 79-standaard FORTH voor de DOS van Koen van 

Nieuwenhove 

4) 79-itiBdaard FORTH voor de Senior 

Hoewel versie 2, 3 en 4 alien de naan 79-5tandaard 
dra^n voldoet niet een van deze FORTH versies in alle 

2. De 79-standaard voor FORTH. 



FUfTH dat aan de 79-standaard voldoet bevat de volgende 




it iff 



OUP DROP 
?DUP )R 

Verge! ijkingi 



< 

m 



♦ D+ 

X / 

wm m 

OR XOR 
GeheuQen: 

I ! 

mm mi 



9WP OVER ROT 
R> Re DEPTH 



fim mi 



8< 



8> 



D< 



IBM' \. .. 



ce 



14 1- 2+ 2- 

/MOD lum y m 



HOVE 



BQ .... 


LOOP 




1 


J 


LEAVE 


iX> .... 


fLDOP 




IF .... 


THEN 




IF .... 


ELSE .. 


THB< 






mriL 


K6IN • t ■ 1 1 1 1 1 • 



mm 



EXIT EXECUTE 
Terninal invoer/uitvoer: 

CR ENIT SPACE SPACES TYPE COUNT -TRAILING 
m DfECT QUERY NORB 



BASE 
•S 



DECirttL . 
HOLD SI6N 



U. 



mm<t 



Nassa geheugen invoer/uitvoer: 
LIST LOAfi iCR_ - JLOCK UPDATE BUFFER 



IMiniifiMit Nowin: 

: 1 TRIABLE CONSTANT 
VOCABULARY CREATE ........ DOES) 



Woordenlijsten: 

CONTEXT CURRENT FORTH 
FORSET 



Virtttfr: 



State 

Diver sen! 



ALLOT 
[ 



DEFINITIONS 



IWEDIATE 
COMPILE 



FIND 



LITERAL 
ICOHPILE] 



( HERE 



PAD 



>IN 



BLK ABORT QUIT 



Verder schrij^t de standaard voor dat het nassa oeheu- 
len opgedeeld is in blokken net een lengte van 1824 
'Iff. - \r'-.c.'v,- . 

Behalve het bovengenoende standaardset Itent 79-FORTH nog 
een aantal extra Moorden. Deze woorden hoeven niet in 
een FORTH volgens de 79-5tandaard aanwezig te zijn, naar 
ziJn in de voor de JUNIOR beschikbare 79-standaard FORTH 
■mtil ml aammig. Oil ziiiti 



tMibli nm/m «l 

2! 26 2C0NSTWT 2DR0P 

2R0T 2SI«^P 2^RIABLE 0+ 

O.R D8= 0< 0" 

DMIN DNEGATE DU< 



2DUP 
D- 



2QVER 
D. 



Reference woord set: 

~> -mTCH -TEXT 

:S AGAIN 6/BUF 

FLUSH HEX INTERPRET 
TBtl ytlST 



.R 
BL 




2H 2/ 
BU«KS C, 
SPfi 



fig-FORTH wordt verspreid door de Forth Interest Group 
en is als source listing beschikbaar voor vrijwel alle 
gangbare microprocessors. Dit is ook het geval voor de 
door ons gebruikte 6582. De source listing van fig-FORTH 
is beschikbaar [21 en is door Gert Klein i21 bewerkt 
voor Junior onder KvN-DOS en door nij voor de Senior [41. 
Bovendien is de versie voor een Junior zonder schijven 
die door Gerard van Roekel beschreven is IS! afgeleid ^ 
van [2] en uitgebreid net cassette routines. 

fig-FORTH Mijkt in een aantal opzichten enigzins af van 



Ef B S O S 
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de 79-standaard. In de eerste plaats ontbreken de Moordens 



PICK 
1- 

HORD 



ROLL 

^ 



DEPTH 
J 



0= 

DOT 



8) 
U. 



IK U< 



Vender zijn er enkele woorden die een andere naan hebben: 



7?-sta^diird: fig: 

?DUP -DUP 
U/HOD U/ 
DNEfiATE OHINUS 
aWE-BUFFERS FLBSN 

Re R 



79-5tandaapd: iiqi 



NOT 

NEGATE 
>IN 



MINUS 

(NtflBER) 

IN 



Bovendien Kent fiq-FORTH een aantal woorden Maar geen 
equivalent in de /9-standaard voor is. Daar ecbter een 
79-standaard FORTH raeestal met behulp van conversits tit 
een fig*FORTH gebouwd wordt, zijn deze Moorden over iNrt 
algeneen utel in een 79-standaard FORTH aanwezig. 

Tinilitti zm m m enkele afMiikingtn in het gtl^uik 



1) Viriibilii worden bij de dtfinitii pijitli#ll»Mi - 
n WmM xxxx 

2) De conbinatie CREATE DOES) uit de standaard 

bestaat niet. In de plaats hiervao kan de ccmbinatie: 

(BUILDS ..... DOES) 

gebruikt worden. Het woord CREATE in ^io-FORTH heeft 
een andere betekenis als CREATE in de 79-standaard. 
in iig-FORTH Mordt CREATE meestal all een door FORTH 
zeli gebruikt. 



It nZm ...... n3H00P 

<«oriit biJ een negatieve n3 gestopt als de index gelijk 
igM Mji kleifii^ i«ord| &ii nl. Bii 79-standaard 
Pmm wsm'» gist^f its ii index {(leiner mordt ite ii» 

4) fig-FORTH werkt niet goed als er gewerkt wordt net 
lege tekststriags, dit io tei^asteUing tot 79*stM- 
diird FURffl. : , ; 

4. 79-standaard FORTH op JWIOR. 

De zooenaande 79-standaard versies van FORTH die voor 
de JUNIOR beschikbaar zijn wijken alle in raeerdere of 
nindere mate van deze standaard af . Uoor alle versies 
geldt nanelijk dat de block-lenote oeen 1824 bytes is 
zoals deze standaard voorschrijtt. in de neeste gevallen 
bedraagt de block-lenote 128 bytes, in een enkel gevil 
(dottble-density DOS) 256 bytes. De block-lengte van een 
FtHfTH is op te vragen net behulp van het itoord 'S/BUF'. 

In de FORTH voor de JUNIOR net cassettes (en de FORTH 
voor KvN DOS ?) geldt bovendien dat het woord DOES) 
niet aan de standaard voldoet. Dit heeft tot gevolg 
dat de conbinatie 'Ci^E DOES)' niet werkt en 
vervangen noet worden im conbinatie '<BUILDS ..... 
M.S>\ Net behulp van een assenbler in FORTH is dit 
pri^tMi op eenvoudige wijze op te lossen. Ik ben van 
itift 11 diiij^ m ^ttf tt imm als er voor de 
bf tff Iff^ liilfipii^^^ is. 



Tenslotte ontbreken vaak de 
■WORD 




•81% -DIPTH" tn 



5. PE-FORTH voor de SENIOR. 



nog een ?SrTH die spec iaaf 8edoe?5 is voor d5S. 
Deze FORTH wijkt sterk af van de andere beschreven FORTH 
versies en onzetting van 79-FORTH naar PE-FORTH of anders- 
on zal enkele problenen kunnen geven. Het belangrijkste 
verschil van PE-FORTH ten opzichte van de 79-standaard 
is de aanwezigheid van zgn. floating-point routines zo- 
dat het in PE-FORTH nooeiijk is net drijvende K«na ge*- 
tall en te werken. Een tweede verschil is het gebruiK van 
variabelen. PE-FORTH vol gt het zgn. "TO" concept wat it" 
houdt dat het noenen van de naan van een variabele df 
waarde van de variabele op de stack zet i.p.v. het a«ft*es 
van de variabele. Het geven van een waarde aan een va* 
riibilf gut net de constrtfcliil 

wiardi Mmm i»M^ ii( upprdi ntan ! 

Evenals biJ fig-FORTH wordt bij de delinitie van een va- 
riabele de startwaarde van deze variabele neeoeoeven 
en wordt ook de constructie "(BUILDS ..... DOESr gebruikt. 

Hat betreft de woorden die in PE-FORTH aanwezig zijn Hjkt 
deze versie neer op fig-FORTH dan op de 79-standaard. 
Opvallend is echter dat alle woorden die op losse bytei 
betrekking hebben beginnen net een 'B' i.p.v een 'C\' 

ee, B!, BHOVE i.p.v. 06, C!, CHOVE 
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Tenslotte kent PE-FORTH nog een ^oot aant#d£^^ 
i^i^t^ Sit lijn iNH^ andere de woorden: 

CASE HONE BELL H. B. BLOCKS -UPDATE 
tmm :ORP»MN ADOPT HYSELF FORWRD ONERR) EXTERNAL 

Bovendien kent PE-FORTH het woord ^ m betekentii ^ • 
de rest van ife regel is comentaar en hoef t ni«t plidil 
te worden. 



6. Afsluiting. 



In de vorige paragrafen heb ik trachten aan te oeven 
wat de verschillen tussen de verschillende FiNTTfl versiii 
2ijn. Hoewel in enkele gevallen de verschillen tpiiinr 
lijk zijn is het toch gebleken dat prooranna's die in 
de ene versie geschreven zijn net een oeetje inventivi- 
teit goed zijn on te werken naar een andere versie. 

Moewel de beschikbare FMTH versies steeds vergeleken 
liJn net de 79-standaard wil ik toch nog even opnerken 
dlt er sinds kort een nieuwe standaard voor FORTH be- 
fiii 11 de l^lii^tod it it beschreven in 161. 

Wsschien kont er in de l»KiMt ten 83-standaard viPiii 
voor de JUNIOR beschikba^ M m #rsie van de zeir 
krachtige FYS-FORTH die MMltiei) ttitsluitend trnm 
APPLE draait. 

7. Literatuur. 
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0 6 MLIST 

SCR # 0 

0 ( FORTH-EXTENSIONS 

1 ( door s Fridus Jonkman , Stijn St reuvelslaan 9 , 

2 ( ,,|,| ,- ,, , ,,,,,,|,,, |, ,,f | i^^ ^? ^^^'^^^ajS 04192-16146 

4 ( Dezf screens bevatten sen aantal FORTH-woorden. die voor 

5 ( flftij een nuttige uitbreiding vormen. Ik werk met een fig- 

6 ( FORTH 00 een Qitaebreide Junior met VDU-kaart en noa cas- 

7 ( settes als ooslaamedium. Fia~FORTH beaint bij mi a o6 ad res 

8 ( $2000. 
9 

10 ( FORTH en ASSEMBLER • 

11 ( Hoewel er een aoede 6502-assembler in FORTH is van W. Raasda- 

12 ( le, had ik tocfi behjpefte aan een woord, mmmee le van FORTH 

13 ( naar een subroutiiitt in machinetaal kunt sDrinaen^en ook weer 

14 ( terug kunt kerim naar FORTH, zonder een assembler te oebrui-* 

15 ( ken. JBR is to'n moord. 



SCR # 1 

0 ( JSR << jumoadres >> ) 

1 FORTH DEFINITIONS HEX 

2 6 USER SO ( SO bevat initiele stackoointef^ i^^^E ) 

3 : JSR HERE ! ( jumoadres naar HERE ) 

4 SP& SO C! ( save huidige stackoointer in SO ) 
F£RE ( indirekt jumoadfes naar stack ) 



6 
7 
6 
9 

10 



LIT 17 + >R ( returnadres-1 = NEXT naar returnstack ) 
EXECUTE ( voer machinetaal rout ine uit en return J 
SP! ( haal stackoointer terua uit SO ) 
9E SO C! ( laad SO met initiele waarde ) 



11 I De volgende woorden maken cursorbesturina mogelijk; er is ) 

12 ( gebruik gemaakt van machinetaal routines uit de Elektuur- ) 

13 ( software bij de VDU-kaart, De jumpadmWNiii stijn hier in > 

14 ( const Ariteifi onderfebracht; pas ze aan jsr eifpn systeiNfif aan. 1^ 
15 



iSCE CONSTANT ftDJCUR 



) 



SCR # 2 

0 ( Cursorbesturino ) 

1 1512 CONSTftNT CLNUP 1551 CONSTANT CLNDN 

2 lfl38 CONSTftNT INLINE 1039 CONSTANT COL 

3 ( ! CURSOR << X Y >> ; plaats cursor naar X,Y 

4 ; ! CURSOR INLINE Cfi >R DUP ROT COL CI INLINE C! 

5 m &mP - -DUP IF 0 OVER 0< 0= 

6 IF DO CLNUP JSR LOOP 

7 ELSE SWAP DO CLNDN JSR LOOP 

8 THEN 

9 THEN fiDJCUR JSR : 

10 ( ?CURSOR << — X Y >> ; huidiae cur»drt>o»itie niaf itiet J 

11 : ?CURSOR COL Ce INLINE 06 ; 

12 ( +CURS0R << +X +Y >> ; verolaats cursor t.o. v. huicH9« ) 



13 ( Dositie met +X,*Y 

14 I ^CURSOR 7CURS0R ROT + >R SWAP + R> ! CURSOR ; 

15 —i 



SCR 
0 
1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 

is 



# 3 

( Omschak»l(in van normal* naar grafischs mod* mn v. v. ) 

( via de woorden NORMAL en GRAPHIC . De oeaeven waartkm tijn I 

( eniaszins afhankelijk van je monitor en van hcit kfistAl IH ) 

{ de 9DU-kaart. Ik oebruik een 15 Mhz kristal. i 

( Pas de waarden in de constanten weer aan aan je systeem, ) 
E800 CONSTANT AR E801 CONSTANT RFILE 



!AR AR C! ; 
iWnjE RFILE Ci ; 
mmt 4 !AR 21 

9 !AR 8 
8RAPHIC 4 !AR 2& 

9 ! AR 7 



( 



AR << 
( ! RFILE 
! RFILE 5 
! RFILE 
! RFILE 
! RFILE 



registernr. 6845 — ~ >> ) 



A 
5 
A 



< < waarde 

!AR 6 ! RFILE 
!AR 68 ! RFILE 
!AR 0 ! RFILE 
JAR 67 ! RFILE 



>> ) 

7 !AR ID ! RFILE 

B !AR 8 ! RFILE 

7 !AR IF ! RFILE 

B !AR 7 ! RFILE 
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SCR # 4 

0 ( Grafische woorden voor hor. en vert, liin en voor rechthoeK ) 

1 ( Het character-bvte dient om de dikte van de beoalen:) 

2 ( zie voor de waarden de karakteraenerator. ■' "!. ] ) 

3 ( HLINE << char, bvte lenate X Y --- >> I , 

4 : HLINE ICURSOR 0 DO DUP'EMIT LOOP DROP ; 

5 ( VLINE << char. bvte hooate X Y >> ) 

6 : VLINE GRAPHIC .'CURSOR 0 DO DUP EMIT -1 1 +CURSOR LOOP DROP : 

7 ( RECTANGLE << lenate hooate X Y >> ) 

B : RECTANGLE ! CURSOR >R >R"?CURSOR R> R> CC EMIT OVER 83 SWAP 
9 7CURS0R HLINE CD EMIT -1 1 +CURSOR SB OVER ?CURSOR 

10 VLINE CE EMIT >R >R 1+ OVER OVER ICURSOR R> R> 8C 

11 SWAP 7CURS0R VLINE CB EMfl ^ JM^ -fOJ^I^ 

12 SWAP 1+ SWAP ICURSOR ; . ^ 

13 . ... , .. ... ., ; 

IS —I 

SCR # 5 

0 ( Nieuwe ID. en MON, ECHO-ON en ECHO-OFF. GO ) 

1 ( Door FORTH wordt het meest significante bit van een bvte ) 

2 ( niet ge"and" met *7F, via ID. 'gaat de laatste letter van elk) 

3 ( FORTH-woord de mist in. Dit is'te verheloen door ID. te ) 

4 ( herdef inieren. Let er wel oo dat daarna ook elk woord. dat ) 

5 ( aebruik maakte van de oude ID., ook oonieuM na ID. moet wor-) 

6 ( den aecomoileerd, zoals VLIST en CREATE. ) 

7 : ID. PAD 20 5F FILL DUP PFA LFA OVER - PAD SWAP OVER OVER + >R 

8 cMovE R> 1 - DUP m mmm mm-.m mm^^mm-Mmm 

g TYPE SPACE : 

10 ( De volgende woorden soreken voor zich en ziin handia! GO ) 

11 ( voor hit oostarten en MON voor het verlaten van FORTH. ) 

12 1A41 CONSTANT ECHO : ECHO-OFF 0 ECHO C! : * .^©NQ-UW i i©iB .©! S 

13 : SO BREAK EMPTY-BUFFERS ECHO-OFF 0 DISC ; ^ 

14 ! MON ECHO-ON MON ; 

15 ~> 

SCR # & 

0 ( CHECK << scr#start 5cr#end >>> : dit woord checkt ) 

1 ( screens oo aanwezige non-orintable karakters, die moeiliik ) 

2 ( OD te SDoren fouten bij het "loaden" kunnen veroorzaken. ) 

3 t CHECK. 1+ BORDER SWAP BORDER CR . 

4 DO HEX I ce 20 < 

5 IF I 4 .R SPACE I Ce 2 . R SPACE I &000 - 400 /MOD 

6 DECIMAL ." SCR# " 2 .R SPACE 40 /MOD ." LINE# " 

7 2 . R SPACE . " CHARt " 2 . R CR 

8 THEN , : 

9 LiiP s . ■ 

10 ;S 
11 
12 
13 
14 
15 

OK 



6502 MACHINETAAL 



Od het oebied van aachinetaal voor de 6502 oroces- 
sor (de 6510 van de CoMOdore 64 iierkt hier even- 
eens aee) verschiinen de laatste tijd wat teer in- 
fortaties. In de vorioe editie hebben wii al pene- 
zen 00 het bestaan van het Zakboek 6502 van auteur 
Bob Brioht dat voor Fl. 17,50 te verkriioen is en 
het bestelnuMer ISBN 906449 0287 heeft. ' Nu heeft 
Acadeeic Service te Den Haaq het boek Machinetaal 
voor de 6502 het licht doen zien, ideaal voor de 
de beginners oo dit gebied. Het boek Nerd aeschre- 
ven door A. P. Steohenson, en is nu vanuit'het En- 
aels vertaald. De oriis bedraaat Fl. 37,50 voor 
•aar liefst 200 mgina^s. Het faeitclmnief if I9N 
90. 6233. 123. B. 
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KEMMER 



Door: ft.C- Tijmons te Rotterdam 



voor de Elektuur JUNIOR-comDuter 



Het komt noaa 
per onaeluk'o 
door het proa 
zich terugmel 
Veel toetswer 
Drograflfima, om 
variabelen ge 
Een ODlossing 
klein beetje" 
schakelaar di 
SERI PL-OUTPUT 
elect ronische 



1 eens voor dat bij het uitvoeren van een Basic-Droaramma 
f te snel een toets wordt inoedrukt oo het kevboard, waar- 
ramma onderbroken wordt en in het eroste oeval de comouter 
dt met JUNIOR. 

k kan dan verloren ziin geqaan in bijvoorbeeld een bestands- 
dat het orogramma oonieuw gestart moet worden^ waarbi.i alle 
reset worden. 

voor dit probleem vormt een klein beetle software en een 
hardware. Er wordt gebriiik gemaakt van een elect ronische 
e het STROBE-signaal, of bij een seriele uitgano het sionaal 
onderbreekt, en enkele PEtK- en P0KE-comman3o' s die de 
schakelaar besturen met behulo van de PIft van de JUNIOR. 



STROBE 



J. n 



van KByboard 



SERIAL:^ OUTPUT 




naar STROBE aans 1 ♦ 



naar RS232 v^cUCOMF'. 



Bij een seriele keyboard aansluitina wordt SERIAL-OUTPUT onderbroken. 
Bij een parallelle keyboard aansluitina wordt STROBE onderbroken. 

De software! 

1 GOSUB 230 --GOTO 1000 

219 REM SUBROUTINE 220 DEBLOKKEERT ASCI I-KEYBOftRD 

220 POKE 6786, PEEK (6786) +2: RETURN 

229 REM SUBROUTINE 230 BLOKKEERT ASCI I -KEYBOARD 

230 POKE 6786, PEEK(6786) -2: RETURN 
lOOO REM BEGIN 

1010 GOSUB 220: INPUT A: GOSUB 230 



Het ad res van PBD is $1A82=6786. 

Na het starten van PM od $1000 is PBl uitaana en het niveau "hooo". Sub- 
routine 230 verlaagt $1A82 met 2, dat wil zeagen: PBl wordt "laaa" en de 
schakelaar wordt geooend en het keyboard oeblokkeerd. Subroutine 220 ver- 
hoogt *1A82 met 2 dus PBl wordt weer "hood". Het is van belana dat aan 
het begin van het Drogramma eerst subroutine 230 wordt doorlooen. Voor en 
na elk* INPUT of GET-commando moeten de beide subroutine's worden doorlo- 
pen, hetgeen meer programmeerwerk inhoudt. Bij het aanoassen van een be- 
staand pfoaramma moeten de beide subroutines zo dicht moaeliik in de 
buurt staan van INPUT of GET. 

De schrijver is oeinteresseerd in andere oolossinaen van dit orobleem die 
bovenqenoeiYide nadelen niet hebben. 
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